diff options
| -rw-r--r-- | challenge-083/steve-rogerson/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-083/steve-rogerson/perl/ch-2.pl b/challenge-083/steve-rogerson/perl/ch-2.pl index bfa393a3c0..726e650d97 100644 --- a/challenge-083/steve-rogerson/perl/ch-2.pl +++ b/challenge-083/steve-rogerson/perl/ch-2.pl @@ -17,7 +17,7 @@ use List::MoreUtils qw{pairwise}; my @NUMBERS = @ARGV; -if ( @NUMBERS == 0 or grep { !looks_like_number($_) || $_ < 0 } @NUMBERS ) { +if ( @NUMBERS == 0 or grep { !looks_like_number($_) || $_ <= 0 } @NUMBERS ) { die "Was expecting a list of positive numbers"; } |