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).

---
 ido-mode/ido_switcher.pl | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'ido-mode')

diff --git a/ido-mode/ido_switcher.pl b/ido-mode/ido_switcher.pl
index 91da08b..e5c5447 100644
--- a/ido-mode/ido_switcher.pl
+++ b/ido-mode/ido_switcher.pl
@@ -250,15 +250,9 @@ sub print_all_matches {
     #_print("Longtest name: $longest_name");
 }
 
-  sub script_is_loaded {
-      my $name = shift;
-      _debug_print "Checking if $name is loaded";
-      no strict 'refs';
-      my $retval = defined %{ "Irssi::Script::${name}::" };
-      use strict 'refs';
-
-      return $retval;
-  }
+sub script_is_loaded {
+    return exists($Irssi::Script::{shift . '::'});
+}
 
 unless (script_is_loaded('uberprompt')) {
 
-- 
cgit v1.2.3