diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2024-01-23 21:12:31 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2024-01-23 21:12:31 +0800 |
| commit | 8d0a98a8a6f5a12a90e06201714bc21239fc12c6 (patch) | |
| tree | 8dd16515f43ae88c2b2e0a612d4ba8f1929ee572 | |
| parent | 2d0b8466fe5f5d8ee91a7faaa6d0c3d1e8edb92a (diff) | |
| download | perlweeklychallenge-club-8d0a98a8a6f5a12a90e06201714bc21239fc12c6.tar.gz perlweeklychallenge-club-8d0a98a8a6f5a12a90e06201714bc21239fc12c6.tar.bz2 perlweeklychallenge-club-8d0a98a8a6f5a12a90e06201714bc21239fc12c6.zip | |
bugfix ch-2
| -rw-r--r-- | challenge-253/steve-g-lynn/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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");
|