From 6558d46f76a09cd795afcef69a29dd276fdffd8c Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 13 Oct 2021 18:36:32 +0100
Subject: - Tidied up a bit further.

---
 challenge-134/mohammad-anwar/perl/ch-2.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'challenge-134')

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;
-- 
cgit