diff options
-rw-r--r-- | lib/Games/Word.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm index b64af08..6bc9b37 100644 --- a/lib/Games/Word.pm +++ b/lib/Games/Word.pm @@ -154,8 +154,8 @@ sub shared_letters_by_position { my @letters = (); while (my ($a, $b) = (shift @a, shift @b)) { - last unless (defined $a && defined $b); - if ($a eq $b) { + last unless (defined $a || defined $b); + if (defined $a && defined $b && $a eq $b) { push @letters, $a; } else { |