Fix for perl 5.24

[NDIRC.git] / Bot.pm

diff --git a/Bot.pm b/Bot.pm
index 9a289f0695a55a39866706d9f199a5bd491ecb26..5693dd4d0b353c392d51a173736421262ba3f74d 100644 (file)
--- a/Bot.pm
+++ b/Bot.pm
@@ -284,8 +284,8 @@ sub parseCommand {
 
        my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/);
 
-       if ($msg =~ m{http://[\w.]+/.+?scan(_id|_grp)?=(\w+)}){
-               if (!$command || $command =~ m{^http://}){
+       if ($msg =~ m{https?://[\w.]+/.+?scan(_id|_grp)?=(\w+)}){
+               if (!$command || $command =~ m{^https?://}){
                        ($p,$command,$args) = ('.','addscan',$msg);
                }elsif($command ne 'addscan'){
                        $self->parseCommand (".addscan $msg", $server, $nick, $address, $channel, $model)