bugfix ch-2

bn-ssotka · Jan 23, 2024 · 8d0a98a · 8d0a98a
1 parent 2d0b846
commit 8d0a98a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/challenge-253/steve-g-lynn/perl/ch-2.pl b/challenge-253/steve-g-lynn/perl/ch-2.pl
@@ -11,7 +11,7 @@ sub mysum {
 
 sub weakest_row {
  #input valuation
- $weakest_row = length($_[0]);
+ local($weakest_row) = length($_[0]);
  foreach (@_) {
   ($_ =~ /^[01]+$/) || (die "Input error: $!\n");
   (length($_) == $weakest_row) || (die "Not a matrix: $!\n");