summaryrefslogtreecommitdiffstats
path: root/lib/Games/Word.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Games/Word.pm')
-rw-r--r--lib/Games/Word.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm
index 948828e..93a0fd7 100644
--- a/lib/Games/Word.pm
+++ b/lib/Games/Word.pm
@@ -77,6 +77,7 @@ sub shared_letters_by_position {
my @letters = ();
while (my ($a, $b) = (pop @a, pop @b)) {
+ last unless (defined $a && defined $b);
if ($a eq $b) {
push @letters, $a;
}