From 200d6533bb315e5f69f926d15724016132cf6232 Mon Sep 17 00:00:00 2001 From: Simon Tatham Date: Fri, 17 Aug 2012 19:45:03 +0000 Subject: [PATCH] Fix implicit split to @_. Also add 'use warnings', which would have spotted it for me. [originally from svn r9605] --- winiss.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/winiss.pl b/winiss.pl index bd2ac05..7416ace 100755 --- 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 () { chomp; - split /:/; + @_ = split /:/; push @exes, $_[0]; $names{$_[0]} = $_[1]; }