diff options
| author | Abigail <abigail@abigail.be> | 2020-12-21 00:05:17 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-12-21 00:05:17 +0100 |
| commit | abe784dd4feb401ca3ac9f608080ea163a748e32 (patch) | |
| tree | a3b8c0fc147f58981aa10b778fa9d3943450510c | |
| parent | b9354cb358ec0d549917d4c209f1ce441879a2b5 (diff) | |
| download | perlweeklychallenge-club-abe784dd4feb401ca3ac9f608080ea163a748e32.tar.gz perlweeklychallenge-club-abe784dd4feb401ca3ac9f608080ea163a748e32.tar.bz2 perlweeklychallenge-club-abe784dd4feb401ca3ac9f608080ea163a748e32.zip | |
Fix check for invalid entries
| -rw-r--r-- | challenge-091/abigail/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-091/abigail/perl/ch-2.pl b/challenge-091/abigail/perl/ch-2.pl index 0881ecb7b0..8572d7cf45 100644 --- a/challenge-091/abigail/perl/ch-2.pl +++ b/challenge-091/abigail/perl/ch-2.pl @@ -14,7 +14,7 @@ while (<>) { # # The second example will die on this. Because 0 ain't no positive number. # - die "Not all positive integers" if grep {!/[0-9]/ || !$_} @N; + die "Not all positive integers" if grep {/[^0-9]/ || !$_} @N; my $index = 0; while ($index < @N - 1) { # |