From 4487f0c2a742e6b04da2ce4f64ec701262748e26 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 28 Jul 2020 04:39:38 +0100
Subject: - Tidied up Perl solutions.

---
 challenge-071/mohammad-anwar/perl/ch-2.pl  | 5 +++++
 challenge-071/mohammad-anwar/perl/ch-2a.pl | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/challenge-071/mohammad-anwar/perl/ch-2.pl b/challenge-071/mohammad-anwar/perl/ch-2.pl
index 335b0d12f5..9147e3ad90 100755
--- a/challenge-071/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-071/mohammad-anwar/perl/ch-2.pl
@@ -18,6 +18,9 @@ has p => (is => 'rw');
 sub trim {
     my ($self, $position) = @_;
 
+    die "ERROR: Invalid position [$position].\n"
+        unless ($position =~ /^\d+$/);
+
     my $tail  = $self;
     my $count = 1;
     my $node;
@@ -93,5 +96,7 @@ sub create_linked_list {
         $tail = $node;
     }
 
+    print $node->show, "\n";
+
     return $node;
 }
diff --git a/challenge-071/mohammad-anwar/perl/ch-2a.pl b/challenge-071/mohammad-anwar/perl/ch-2a.pl
index 2d8158220b..eaac007bd4 100755
--- a/challenge-071/mohammad-anwar/perl/ch-2a.pl
+++ b/challenge-071/mohammad-anwar/perl/ch-2a.pl
@@ -18,6 +18,9 @@ has p => (is => 'rw');
 sub trim {
     my ($self, $position) = @_;
 
+    die "ERROR: Invalid position [$position].\n"
+        unless ($position =~ /^\d+$/);
+
     my $tail  = $self;
     my $count = 1;
     my $node;
-- 
cgit