[randaway] a small correction

diff --git a/_testing/config.yml b/_testing/config.yml
index b6a8f12f6c25891d179ffae4abae2e9b1244c66a..4ebe4992d0f392f61300955c710447b8cc89181a 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -65,7 +65,6 @@ whitelist:
   - quizmaster-fr
   - quizmaster
   - quiz
-  - randaway
   - scroller
   - stocks
   - sysinfoplus

diff --git a/scripts/randaway.pl b/scripts/randaway.pl
index 6f63c000a89c222e2ebb455b084387342f833edd..91c8d381c55085295d9614d3b8255acd834b16e0 100644 (file)
--- a/scripts/randaway.pl
+++ b/scripts/randaway.pl
@@ -19,7 +19,7 @@ use Irssi 20011116;
 use Irssi::Irc;
 use vars qw($VERSION %IRSSI);
 
-$VERSION = '1.13';
+$VERSION = '1.14';
 %IRSSI = (
     authors    => "Lasse Karstensen",
     contact    => "lkarsten\@stud.ntnu.no",
@@ -32,7 +32,7 @@ $VERSION = '1.13';
 # file to read random reasons from. It should contain one
 # reason at each line, empty lines and lines starting with # is 
 # skipped.
-$reasonfile = Irssi::get_irssi_dir() . "/awayreasons";
+my $reasonfile = Irssi::get_irssi_dir() . "/awayreasons";
 
 my @awayreasons;
 
@@ -46,7 +46,7 @@ sub readreasons {
                # like a read() .. ie, stopping at each \n.
                local $/ = "\n";
                 while (<F>) {
-                   $reason = $_;
+                   my $reason = $_;
 
                    # remove any naughty linefeeds.
                    chomp($reason);
@@ -94,8 +94,8 @@ sub add_reason {
        # adding to current environment.
        push(@awayreasons, $reason);
        # and also saving it for later.  
-       open(F, ">>", $reasonsfile);
-       print F $reason;
+       open(F, ">>", $reasonfile);
+       print F $reason,"\n";
        close F;
        Irssi::print("Added: $reason");
     }
@@ -103,7 +103,7 @@ sub add_reason {
 
 sub reasons {
     Irssi::print("Listing current awayreasons");
-    foreach $var (@awayreasons) {
+    foreach my $var (@awayreasons) {
         Irssi::print("=> \"$var\""); 
     }
 }