zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-21 16:05:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
spotted it for me.

[originally from svn r9605]
This commit is contained in:
Simon Tatham
2012-08-17 19:45:03 +00:00
parent bbf800e49e
commit 200d6533bb
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
winiss.pl
View File

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