diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-12 21:06:10 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-12 21:06:10 +0100 |
| commit | 7f1db1431ba3686dcd47a6cd2b4be2c356944719 (patch) | |
| tree | 97d4f5b2899cad6c7082e019543a87368a32e3e6 | |
| parent | e854f55a8f0b8d9a117e33b6dba46c85308bd3c9 (diff) | |
| download | perlweeklychallenge-club-7f1db1431ba3686dcd47a6cd2b4be2c356944719.tar.gz perlweeklychallenge-club-7f1db1431ba3686dcd47a6cd2b4be2c356944719.tar.bz2 perlweeklychallenge-club-7f1db1431ba3686dcd47a6cd2b4be2c356944719.zip | |
- Tidied up Perl solutions.
| -rw-r--r-- | challenge-068/mohammad-anwar/perl/ch-2.pl | 1 | ||||
| -rw-r--r-- | challenge-068/mohammad-anwar/perl/ch-2a.pl | 1 |
2 files changed, 0 insertions, 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) { |