From fb30d9468ff23430b7e282fae858752480fe61d2 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 2 Feb 2008 23:35:46 -0500
Subject: shared_letters_by_position should return an array that's the length
 of the longer string, not the shorter

---
 lib/Games/Word.pm | 4 ++--
 1 file 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 {
-- 
cgit v1.2.3-54-g00ecf