diff options
-rw-r--r-- | lib/Games/Word.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm index f721afb..f875c67 100644 --- a/lib/Games/Word.pm +++ b/lib/Games/Word.pm @@ -198,7 +198,7 @@ sub is_substring { return 1 if $substring eq ''; return 0 if $string eq ''; my $re = join('?', map { quotemeta } split(//, $string)) . '?'; - return $substring =~ $re; + return $substring =~ /^$re$/; } =item all_substrings STRING |