Fix implicit split to @_. Also add 'use warnings', which would have

[sgt/puzzles] / winiss.pl

diff --git a/winiss.pl b/winiss.pl
index bd2ac05..7416ace 100755 (executable)
--- a/winiss.pl
+++ b/winiss.pl
@@ -11,13 +11,15 @@
 # where `1234' is the revision number which will be encoded in the
 # installer's version indicators.
 
+use warnings;
+
 $rev = shift @ARGV;
 ($revclean=$rev) =~ s/M$//;
 $lst = shift @ARGV;
 open LST, "<", $lst;
 while (<LST>) {
     chomp;
-    split /:/;
+    @_ = split /:/;
     push @exes, $_[0];
     $names{$_[0]} = $_[1];
 }