all loop iterators have to be declared lexical. PBP/108

This commit is contained in:
Colin Kuskie 2007-12-05 16:46:38 +00:00
parent 52132e61f4
commit 08fbd46d28
8 changed files with 31 additions and 34 deletions

View file

@ -501,10 +501,9 @@ sub is_constant {
}
sub sum {
my ($sum, $elem);
$sum = 0;
my $sum = 0;
my $arrRef = shift;
foreach $elem (@{$arrRef}) { $sum += $elem; }
foreach my $elem (@{$arrRef}) { $sum += $elem; }
return($sum);
}