use strict;
-my $no_zippy; # Can't think of any situation in which this won't work..
+my $no_zippy; # Can't think of any situation in which this won't work..
sub zippy::get {
my @yows;
&::DEBUG('Reading zippy data');
while (<DATA>) {
- chomp;
- push @yows, $_;
+ chomp;
+ push @yows, $_;
}
- if ($no_zippy) { # ..but just in case :-)
- return "YOW! I'm an INFOBOT without ZIPPY!" if $::addressed;
+ if ($no_zippy) { # ..but just in case :-)
+ return "YOW! I'm an INFOBOT without ZIPPY!" if $::addressed;
}
- srand(); # fork seems to not change rand. force it here
- my $yow = $yows[rand(@yows)];
+ srand(); # fork seems to not change rand. force it here
+ my $yow = $yows[ rand(@yows) ];
&::performStrictReply($yow);
}
1;
+# vim:ts=4:sw=4:expandtab:tw=80
+
=pod
=head1 NAME