X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Finsult.pl;h=79b85e9d1820d66bf297f1c2cfb2b03b232fad68;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=e13979113f198db4b650ea3b45ec399c88cb9d63;hpb=0aa3bd828d0482ad2bd15ef94ce88bf52fb68849;p=infobot.git diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl index e139791..79b85e9 100644 --- a/src/Modules/insult.pl +++ b/src/Modules/insult.pl @@ -4,10 +4,10 @@ # => use the command hooks system aswell # -use strict; - package Insult; +use strict; + sub Insult { my ($insultwho) = @_; return unless &::loadPerlModule("Net::Telnet"); @@ -18,7 +18,7 @@ sub Insult { $line = "No luck, $::who" unless (defined $line); - if ($insultwho ne $::who) { + if ($insultwho ne $::who) { $line =~ s/^\s*You are/$insultwho is/i; }