From b3abf6f554be9dfce030a4aa1c1ec352b4bef44b Mon Sep 17 00:00:00 2001 From: robbie-hatley Date: Fri, 22 Mar 2024 14:41:45 -0700 Subject: Correction to my solution to 261-2. --- challenge-261/robbie-hatley/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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.'; -- cgit