From 7f1db1431ba3686dcd47a6cd2b4be2c356944719 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Sun, 12 Jul 2020 21:06:10 +0100 Subject: - Tidied up Perl solutions. --- challenge-068/mohammad-anwar/perl/ch-2.pl | 1 - challenge-068/mohammad-anwar/perl/ch-2a.pl | 1 - 2 files changed, 2 deletions(-) diff --git a/challenge-068/mohammad-anwar/perl/ch-2.pl b/challenge-068/mohammad-anwar/perl/ch-2.pl index 8b5868a119..a49ca3bf8d 100644 --- a/challenge-068/mohammad-anwar/perl/ch-2.pl +++ b/challenge-068/mohammad-anwar/perl/ch-2.pl @@ -18,7 +18,6 @@ has c => (is => 'rw'); sub show_link { my ($self) = @_; - my $head = $self; my @v = (); while ($head->c) { diff --git a/challenge-068/mohammad-anwar/perl/ch-2a.pl b/challenge-068/mohammad-anwar/perl/ch-2a.pl index b8f5069519..3620a16d5e 100644 --- a/challenge-068/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-068/mohammad-anwar/perl/ch-2a.pl @@ -18,7 +18,6 @@ has c => (is => 'rw'); sub show_link { my ($self) = @_; - my $head = $self; my @v = (); while ($head->c) { -- cgit