handle negative units

[infobot.git] / src / Modules / Zippy.pl

diff --git a/src/Modules/Zippy.pl b/src/Modules/Zippy.pl
index 51c7403c56dbd65ca07e256c58ec66df62d0a855..68000032eb444f672014cf90dfd9c567ab33f358 100644 (file)
--- a/src/Modules/Zippy.pl
+++ b/src/Modules/Zippy.pl
@@ -9,28 +9,30 @@ package zippy;
 
 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