diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-25 10:31:21 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-25 10:31:21 +0000 |
| commit | ae77835f9b08444f73b593d4cdc0758132dbbf00 (patch) | |
| tree | 5f626cfecad7636b4da1329b5602c41f2cf53d23 /lib/Text/Soundex.pm | |
| parent | c750a3ec3b866067ab46dbcc9083205d823047c3 (diff) | |
| parent | ec4e49dc1523dcdb6bec56a66be410eab95cfa61 (diff) | |
| download | perl-ae77835f9b08444f73b593d4cdc0758132dbbf00.tar.gz | |
First stab at 5.003 -> 5.004 integration.
p4raw-id: //depot/perl@18
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 '') |