diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-02-02 05:39:02 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-02-02 05:39:02 -0500 |
| commit | 65bb08f71b07ea1794e91c351e7959d24387e0a7 (patch) | |
| tree | da7cb6fb460e99827debd5a56ed14f01ff7be2b8 | |
| parent | 526ba9c5dea9d95e6ed337a506f5eebf754af9db (diff) | |
| download | games-word-65bb08f71b07ea1794e91c351e7959d24387e0a7.tar.gz games-word-65bb08f71b07ea1794e91c351e7959d24387e0a7.zip | |
probably name these correctly
| -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 { |