summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjluehrs2 <jluehrs2@uiuc.edu>2008-12-18 05:00:55 -0500
committerjluehrs2 <jluehrs2@uiuc.edu>2008-12-18 05:00:55 -0500
commitaba72b1e077645882b4bbcafab8fb5c969e2613a (patch)
tree7ec7256907d872b59de9506f94fca02974b17ba5
parent9e4f671a0d6a2cee0eace11c10f52197e951de35 (diff)
downloadgames-word-aba72b1e077645882b4bbcafab8fb5c969e2613a.tar.gz
games-word-aba72b1e077645882b4bbcafab8fb5c969e2613a.zip
test for $string being empty, not just $substring
-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 43aaae7..f721afb 100644
--- a/lib/Games/Word.pm
+++ b/lib/Games/Word.pm
@@ -196,6 +196,7 @@ sub is_substring {
my ($substring, $string) = @_;
return 1 if $substring eq '';
+ return 0 if $string eq '';
my $re = join('?', map { quotemeta } split(//, $string)) . '?';
return $substring =~ $re;
}