diff options
| -rw-r--r-- | challenge-134/mohammad-anwar/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-134/mohammad-anwar/perl/ch-2.pl b/challenge-134/mohammad-anwar/perl/ch-2.pl index 66375b4c9a..64a15fe188 100644 --- a/challenge-134/mohammad-anwar/perl/ch-2.pl +++ b/challenge-134/mohammad-anwar/perl/ch-2.pl @@ -30,8 +30,8 @@ sub create_table { die "ERROR: Missing 'm'\n." unless defined $m; die "ERROR: Missing 'n'\n." unless defined $n; - die "ERROR: Invalid $m\n." if ($m < 0); - die "ERROR: Invalid $n\n." if ($n < 0); + die "ERROR: Invalid $m\n." if ($m <= 0); + die "ERROR: Invalid $n\n." if ($n <= 0); my $table = []; my $length = length($m * $n) + 1; |