diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2021-06-15 19:27:23 -0500 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2021-06-15 19:27:23 -0500 |
| commit | 735a428d4e1f61498f277c8c5b0f5d01130e3df8 (patch) | |
| tree | 97849e5eb1798fedcfc2efe163e503e6050150b7 | |
| parent | e4698487889cdd3ea6631fd1a2ff3b8497175ed0 (diff) | |
| download | perlweeklychallenge-club-735a428d4e1f61498f277c8c5b0f5d01130e3df8.tar.gz perlweeklychallenge-club-735a428d4e1f61498f277c8c5b0f5d01130e3df8.tar.bz2 perlweeklychallenge-club-735a428d4e1f61498f277c8c5b0f5d01130e3df8.zip | |
Correct mistake
| -rwxr-xr-x | challenge-117/wlmb/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-117/wlmb/perl/ch-1.pl b/challenge-117/wlmb/perl/ch-1.pl index 17869acc85..35bb4e1edf 100755 --- a/challenge-117/wlmb/perl/ch-1.pl +++ b/challenge-117/wlmb/perl/ch-1.pl @@ -17,5 +17,5 @@ while(<>){ die "Wrong number: $_" unless defined $rows{$1}; delete $rows{$1}; } -die "Not 14 lines" unless $count=14; +die "Not 14 lines" unless $count==14; say "Missing row: $_, $rows{$_}" for keys %rows; |