[ID 20000614.005] [patch] Tweak to Net::Ping docs

[p5sagit/p5-mst-13.2.git] / lib / Text / Soundex.pm

diff --git a/lib/Text/Soundex.pm b/lib/Text/Soundex.pm
index a334404..3079b90 100644 (file)
--- a/lib/Text/Soundex.pm
+++ b/lib/Text/Soundex.pm
@@ -5,6 +5,8 @@ require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(&soundex $soundex_nocode);
 
+$VERSION = '1.0';
+
 # $Id: soundex.pl,v 1.2 1994/03/24 00:30:27 mike Exp $
 #
 # Implementation of soundex algorithm as described by Knuth in volume
@@ -48,7 +50,7 @@ sub soundex
 
   foreach (@s)
   {
-    tr/a-z/A-Z/;
+    $_ = uc $_;
     tr/A-Z//cd;
 
     if ($_ eq '')