all loop iterators have to be declared lexical. PBP/108
This commit is contained in:
parent
52132e61f4
commit
08fbd46d28
8 changed files with 31 additions and 34 deletions
|
|
@ -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);
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue