From b37c70a3cf9f7e9e54c0d8a03c02f88d58638ba0 Mon Sep 17 00:00:00 2001
From: brtastic <brtastic.dev@gmail.com>
Date: Mon, 8 Jun 2020 18:58:12 +0200
Subject: Challenge 64.2 - handle zero length strings

---
 challenge-064/brtastic/perl/ch-2.pl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/challenge-064/brtastic/perl/ch-2.pl b/challenge-064/brtastic/perl/ch-2.pl
index 9561d99214..36a297e753 100644
--- a/challenge-064/brtastic/perl/ch-2.pl
+++ b/challenge-064/brtastic/perl/ch-2.pl
@@ -19,9 +19,10 @@ sub match_words
 			}
 		}
 
-		return 0;
+		last;
 	}
 
+	return 0 if @found != @words;
 	return
 		join ", ",
 		map { '"' . $_ . '"' }
@@ -52,6 +53,16 @@ my @data = (
 		[qw(perl perlish)],
 		'"perlish", "perl"',
 	],
+	[
+		"",
+		[],
+		"",
+	],
+	[
+		"",
+		[qw(test)],
+		0,
+	],
 );
 
 for (@data) {
-- 
cgit