From 8d0a98a8a6f5a12a90e06201714bc21239fc12c6 Mon Sep 17 00:00:00 2001
From: Stephen Lynn <bizlsg@localhost.localdomain>
Date: Tue, 23 Jan 2024 21:12:31 +0800
Subject: bugfix ch-2

---
 challenge-253/steve-g-lynn/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'challenge-253')

diff --git a/challenge-253/steve-g-lynn/perl/ch-2.pl b/challenge-253/steve-g-lynn/perl/ch-2.pl
index 00014dc23e..5e67272a53 100644
--- 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");
-- 
cgit