From 8a8ba2c51eadbc0a7ce0236ba6a04dd081f657e2 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Fri, 1 Apr 2011 06:43:04 +0100
Subject: modify all scripts to use the new script_is_loaded() function, since
 newer versions of perl get upset at defined(%hash).

---
 prompt_info/uberprompt.pl | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'prompt_info/uberprompt.pl')

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 {
-- 
cgit v1.2.3