diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-12-18 05:00:55 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-12-18 05:00:55 -0500 |
commit | aba72b1e077645882b4bbcafab8fb5c969e2613a (patch) | |
tree | 7ec7256907d872b59de9506f94fca02974b17ba5 /lib/Games/Word.pm | |
parent | 9e4f671a0d6a2cee0eace11c10f52197e951de35 (diff) | |
download | games-word-aba72b1e077645882b4bbcafab8fb5c969e2613a.tar.gz games-word-aba72b1e077645882b4bbcafab8fb5c969e2613a.zip |
test for $string being empty, not just $substring
Diffstat (limited to 'lib/Games/Word.pm')
-rw-r--r-- | lib/Games/Word.pm | 1 |
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; } |