diff options
Diffstat (limited to 'history-search/rl_history_search.pl')
| -rw-r--r-- | history-search/rl_history_search.pl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/history-search/rl_history_search.pl b/history-search/rl_history_search.pl index ca45fe5..642b99c 100644 --- a/history-search/rl_history_search.pl +++ b/history-search/rl_history_search.pl @@ -81,13 +81,7 @@ sub DEBUG () { $DEBUG_ENABLED } # 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')) { @@ -103,7 +97,7 @@ if (not script_is_loaded('uberprompt')) { } history_init(); } else { - history_init(); + history_init(); } sub load_uberprompt_failed { |