From 9b4f3c204419e20bcb470b8aa04a6ffb4e35fdfb Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Fri, 1 Apr 2011 07:26:42 +0100 Subject: Bah. more fixing of script_is_loaded. --- history-search/rl_history_search.pl | 2 +- ido-mode/ido_switcher.pl | 2 +- prompt_info/uberprompt.pl | 2 +- quit-notify/notifyquit.pl | 2 +- scrolled-reminder/scrolled_reminder.pl | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/history-search/rl_history_search.pl b/history-search/rl_history_search.pl index 642b99c..2df9171 100644 --- a/history-search/rl_history_search.pl +++ b/history-search/rl_history_search.pl @@ -81,7 +81,7 @@ sub DEBUG () { $DEBUG_ENABLED } # check we have uberprompt loaded. sub script_is_loaded { - return exists($Irssi::Script::{shift . '::'}) ; + return exists($Irssi::Script::{$_[0] . '::'}) ; } if (not script_is_loaded('uberprompt')) { diff --git a/ido-mode/ido_switcher.pl b/ido-mode/ido_switcher.pl index e5c5447..9f8d121 100644 --- a/ido-mode/ido_switcher.pl +++ b/ido-mode/ido_switcher.pl @@ -251,7 +251,7 @@ sub print_all_matches { } sub script_is_loaded { - return exists($Irssi::Script::{shift . '::'}); + return exists($Irssi::Script::{$_[0] . '::'}); } unless (script_is_loaded('uberprompt')) { diff --git a/prompt_info/uberprompt.pl b/prompt_info/uberprompt.pl index e7f8672..63cd958 100644 --- a/prompt_info/uberprompt.pl +++ b/prompt_info/uberprompt.pl @@ -100,7 +100,7 @@ # # check we have uberprompt loaded. # # sub script_is_loaded { -# return exists($Irssi::Script::{shift . '::'}); +# return exists($Irssi::Script::{$_[0] . '::'}); # } # # if (not script_is_loaded('uberprompt')) { diff --git a/quit-notify/notifyquit.pl b/quit-notify/notifyquit.pl index 07a6066..bcccf87 100644 --- a/quit-notify/notifyquit.pl +++ b/quit-notify/notifyquit.pl @@ -24,7 +24,7 @@ my $pending_input = {}; sub script_is_loaded { - return exists($Irssi::Script::{shift . '::'}); + return exists($Irssi::Script::{$_[0] . '::'}); } if (script_is_loaded('uberprompt')) { diff --git a/scrolled-reminder/scrolled_reminder.pl b/scrolled-reminder/scrolled_reminder.pl index 21fab26..efe6630 100644 --- a/scrolled-reminder/scrolled_reminder.pl +++ b/scrolled-reminder/scrolled_reminder.pl @@ -82,7 +82,7 @@ our %IRSSI = # check we have prompt_info loaded. sub script_is_loaded { - return exists($Irssi::Script::{shift . '::'}) ; + return exists($Irssi::Script::{$_[0] . '::'}) ; } unless (script_is_loaded('uberprompt')) { -- cgit v1.2.3