diff options
| -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; |