diff options
-rw-r--r-- | lib/Games/Word.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm index cd54cdb..514b4e5 100644 --- a/lib/Games/Word.pm +++ b/lib/Games/Word.pm @@ -112,11 +112,11 @@ sub random_string_from { } sub is_substring { - my ($word, $substring) = @_; + my ($substring, $string) = @_; return 1 unless $substring; - my $re = join('?', map { quotemeta } split(//, $substring)) . '?'; - return $word =~ $re; + my $re = join('?', map { quotemeta } split(//, $string)) . '?'; + return $substring =~ $re; } sub all_substrings { |