aboutsummaryrefslogtreecommitdiffstats
path: root/prompt_info/uberprompt.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-04-01 05:43:04 +0000
committerTom Feist <shabble@metavore.org>2011-04-01 05:43:04 +0000
commit8a8ba2c51eadbc0a7ce0236ba6a04dd081f657e2 (patch)
tree2acdb32ce10869db315e2b045b272def5a1ca60c /prompt_info/uberprompt.pl
parentsignal_redir: general cleanup, and added attribution block %IRSSI (diff)
downloadirssi-scripts-8a8ba2c51eadbc0a7ce0236ba6a04dd081f657e2.tar.gz
irssi-scripts-8a8ba2c51eadbc0a7ce0236ba6a04dd081f657e2.zip
modify all scripts to use the new script_is_loaded() function, since newer
versions of perl get upset at defined(%hash).
Diffstat (limited to 'prompt_info/uberprompt.pl')
-rw-r--r--prompt_info/uberprompt.pl10
1 files changed, 2 insertions, 8 deletions
diff --git a/prompt_info/uberprompt.pl b/prompt_info/uberprompt.pl
index 37c3c81..3426711 100644
--- a/prompt_info/uberprompt.pl
+++ b/prompt_info/uberprompt.pl
@@ -100,13 +100,7 @@
# # check we have uberprompt loaded.
#
# sub script_is_loaded {
-# my $name = shift;
-# print "Checking if $name is loaded" if DEBUG;
-# no strict 'refs';
-# my $retval = defined %{ "Irssi::Script::${name}::" };
-# use strict 'refs';
-#
-# return $retval;
+# return exists($Irssi::Script::{shift . '::'});
# }
#
# if (not script_is_loaded('uberprompt')) {
@@ -122,7 +116,7 @@
# }
# app_init();
# } else {
-# app_init();
+# app_init();
# }
#
# sub load_uberprompt_failed {