[scripthelp] bug fix

diff --git a/scripts/scripthelp.pl b/scripts/scripthelp.pl
index 0bdca016a725e1b0cb37e68f154f682d2930eea2..7591e92efd4dd4fd732cb49e1ed4163c8c1fac98 100644 (file)
--- a/scripts/scripthelp.pl
+++ b/scripts/scripthelp.pl
@@ -2,14 +2,14 @@ use strict;
 use Irssi;
 
 use vars qw($VERSION %IRSSI %HELP);
-$VERSION = "0.9";
+$VERSION = "0.10";
 %IRSSI = (
        authors         => "Maciek \'fahren\' Freudenheim",
        contact         => "fahren\@bochnia.pl",
        name            => "Scripts help",
        description     => "Provides access to script\'s help",
        license         => "GNU GPLv2 or later",
-       changed         => "Sat Apr 13 02:23:37 CEST 2002"
+       changed         => "2019-02-27"
 );
 $HELP{scripthelp} = "
 Provides help for irssi's perl scripts.
@@ -26,6 +26,7 @@ sub cmd_help {
 
        # from scriptinfo.pl
        for (sort grep s/::$//, keys %Irssi::Script::) {
+               no strict 'refs';
                my $help = ${ "Irssi::Script::${_}::HELP" }{$args};
                if ($help) {
                        Irssi::signal_stop();