From 32cabe4cb86531a3a71a57853a03cc6771b319ac Mon Sep 17 00:00:00 2001 From: simon 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. git-svn-id: svn://svn.tartarus.org/sgt/puzzles@9605 cda61777-01e9-0310-a592-d414129be87e --- 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]; } -- 2.11.0