shithub: puzzles

Info  •  Files  •  Log  •  Branches

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

[originally from svn r9605]

--- a/winiss.pl

+++ b/winiss.pl

@@ -11,6 +11,8 @@

 # 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;

@@ -17,7 +19,7 @@

 open LST, "<", $lst;

 while (<LST>) {

     chomp;

-    split /:/;

+    @_ = split /:/;

     push @exes, $_[0];

     $names{$_[0]} = $_[1];

 }