From 9dd2e7bd15cc853ff802c73df24cf61e864c06a3 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Tue, 21 Sep 2021 09:56:49 +0000
Subject: Small performance change (Suggestion by Tod McQuillin) * slightly
 condensed code * add "no warnings 'once'"

---
 challenge-131/perlboy1967/perl/ch-1.pl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 challenge-131/perlboy1967/perl/ch-1.pl

diff --git a/challenge-131/perlboy1967/perl/ch-1.pl b/challenge-131/perlboy1967/perl/ch-1.pl
old mode 100644
new mode 100755
index 05558a8351..06f3d68023
--- a/challenge-131/perlboy1967/perl/ch-1.pl
+++ b/challenge-131/perlboy1967/perl/ch-1.pl
@@ -26,18 +26,16 @@ done_testing;
 
 
 sub consecutiveArrays {
-
   my @r = ([]);
 
+  no warnings 'once';
   slide { 
     push(@{$r[-1]}, $a);
-    if ($a != $b - 1) { 
-      push(@r, []);
-    } 
+    push(@r, []) if ($a != $b - 1);
   } @_;
 
   push(@{$r[-1]}, $_[-1]);
 
-  return [@r];
+  return \@r;
 }
 
-- 
cgit