diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-10-13 18:36:32 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-10-13 18:36:32 +0100 |
| commit | 6558d46f76a09cd795afcef69a29dd276fdffd8c (patch) | |
| tree | 04e0bf06c3d719eed52819bf75c0dcac0fa70e20 | |
| parent | a42c93a95dbb2ff10f1deabc80eedb0ddd2a044d (diff) | |
| download | perlweeklychallenge-club-6558d46f76a09cd795afcef69a29dd276fdffd8c.tar.gz perlweeklychallenge-club-6558d46f76a09cd795afcef69a29dd276fdffd8c.tar.bz2 perlweeklychallenge-club-6558d46f76a09cd795afcef69a29dd276fdffd8c.zip | |
- Tidied up a bit further.
| -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; |