# => use the command hooks system aswell
#
-use strict;
-
package Insult;
+use strict;
+
sub Insult {
my ($insultwho) = @_;
return unless &::loadPerlModule("Net::Telnet");
$line = "No luck, $::who" unless (defined $line);
- if ($insultwho ne $::who) {
+ if ($insultwho ne $::who) {
$line =~ s/^\s*You are/$insultwho is/i;
}