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

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

View File

@ -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];
}