X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Finsult.pl;h=662542d57de6c63fd75bbc1dcbe5cbc926e7e0e9;hb=a523737c588a01cf74076ae2a3c06a669389ddcb;hp=1dbb89a6daca68aa0ffd62160a78a585fc53dd35;hpb=ff2da5e408ead78b25464250c2a967f7849ae20e;p=infobot.git diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl index 1dbb89a..662542d 100644 --- a/src/Modules/insult.pl +++ b/src/Modules/insult.pl @@ -15,9 +15,9 @@ sub Insult { $t->Net::Telnet::open(Host => "insulthost.colorado.edu", Port => "1695"); my $line = $t->Net::Telnet::getline(Timeout => 4); - $line = "No luck, $main::who" unless (defined $line); + $line = "No luck, $::who" unless (defined $line); - if ($insultwho ne $main::who) { + if ($insultwho ne $::who) { $line =~ s/^\s*You are/$insultwho is/i; }