From 3295f94a3fc8bf6b1b78d24609baa643db77a352 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sat, 15 Aug 2020 05:18:21 +0100
Subject: - Tidied up Perl solution.

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

diff --git a/challenge-072/mohammad-anwar/perl/ch-2.pl b/challenge-072/mohammad-anwar/perl/ch-2.pl
index 5aefb7ab19..fe1c1d817d 100755
--- a/challenge-072/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-072/mohammad-anwar/perl/ch-2.pl
@@ -25,9 +25,9 @@ sub lines_range {
     my ($file, $a, $b) = @_;
 
     die "ERROR: Invalid file [$file].\n"     unless (-e $file && -f _ && -r _ && -T _);
-    die "ERROR: Missing A.\n"                unless defined $A;
-    die "ERROR: Missing B.\n"                unless defined $B;
-    die "ERROR: Invalid range [$A \- $B].\n" unless ($A <= $B);
+    die "ERROR: Missing A.\n"                unless defined $a;
+    die "ERROR: Missing B.\n"                unless defined $b;
+    die "ERROR: Invalid range [$a \- $b].\n" unless ($a <= $b);
 
     open(my $F, "<", $file) || die "ERROR: Failed to open [$!]\n";
     my @lines = <$F>;
-- 
cgit