aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad Sajid Anwar <Mohammad.Anwar@yahoo.com>2024-03-23 09:38:14 +0000
committerGitHub <noreply@github.com>2024-03-23 09:38:14 +0000
commite672506bdd385536fc736798cfa6fbe948db1308 (patch)
treea9481d9a673f1f6c606e5140fb8013c3f63c8f8b
parentb19623c7d1794f05bb128c532295a70dedf06cad (diff)
parentb3abf6f554be9dfce030a4aa1c1ec352b4bef44b (diff)
downloadperlweeklychallenge-club-e672506bdd385536fc736798cfa6fbe948db1308.tar.gz
perlweeklychallenge-club-e672506bdd385536fc736798cfa6fbe948db1308.tar.bz2
perlweeklychallenge-club-e672506bdd385536fc736798cfa6fbe948db1308.zip
Merge pull request #9793 from robbie-hatley/rh261
Correction to my solution to 261-2.
-rwxr-xr-xchallenge-261/robbie-hatley/perl/ch-2.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-261/robbie-hatley/perl/ch-2.pl b/challenge-261/robbie-hatley/perl/ch-2.pl
index 46cd0190f6..fa349c4024 100755
--- a/challenge-261/robbie-hatley/perl/ch-2.pl
+++ b/challenge-261/robbie-hatley/perl/ch-2.pl
@@ -97,7 +97,7 @@ for my $aref (@arrays) {
say '';
my @array = @$aref;
my $start = pop @array;
- say 'Array = (', join(', ', @$aref), ')';
+ say 'Array = (', join(', ', @array), ')';
say 'Start = ', $start;
if ( 0 == $start ) {
say 'Error: $start may not be 0.';