From af5559046914ee97dd70ac51ee5a96a498de81ea Mon Sep 17 00:00:00 2001
From: Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com>
Date: Mon, 25 May 2020 00:17:41 +0200
Subject: Update ch-1.pl

Corrected 'list exausted' bug.
---
 challenge-061/PerlBoy1967/perl/ch-1.pl | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/challenge-061/PerlBoy1967/perl/ch-1.pl b/challenge-061/PerlBoy1967/perl/ch-1.pl
index 3717d09c11..18b39ac05d 100755
--- a/challenge-061/PerlBoy1967/perl/ch-1.pl
+++ b/challenge-061/PerlBoy1967/perl/ch-1.pl
@@ -73,9 +73,6 @@ foreach my $list (@listOfLists) {
       $rIdx++;
     }
 
-    # List exhausted?
-    last if ($rIdx == scalar(@list) - 1);
-
     $lIdx = $rIdx - 1; 
 
     # Calculate the new potential maximum
-- 
cgit