diff options
Diffstat (limited to 'lib/Text/Soundex.pm')
| -rw-r--r-- | lib/Text/Soundex.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Text/Soundex.pm b/lib/Text/Soundex.pm index a334404667..ddc758c94e 100644 --- a/lib/Text/Soundex.pm +++ b/lib/Text/Soundex.pm @@ -48,7 +48,7 @@ sub soundex foreach (@s) { - tr/a-z/A-Z/; + $_ = uc $_; tr/A-Z//cd; if ($_ eq '') |