Update Text-Soundex to CPAN version 3.04
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 7 Feb 2013 21:16:32 +0000 (21:16 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 7 Feb 2013 21:59:43 +0000 (21:59 +0000)
  [DELTA]

  3.04  Thu Feb  7 15:53:09 EST 2013 <rjbs@cpan.org>

  The module is going to be removed from the core distribution of perl, and will
  now warn (under warnings) if loaded from its installed-to-core location.

Porting/Maintainers.pl
cpan/Text-Soundex/Changes
cpan/Text-Soundex/Soundex.pm
cpan/Text-Soundex/Soundex.xs

index 850b6bf..35d01e0 100755 (executable)
@@ -1840,7 +1840,7 @@ use File::Glob qw(:case);
 
     'Text::Soundex' => {
         'MAINTAINER'   => 'markm',
-        'DISTRIBUTION' => 'MARKM/Text-Soundex-3.03.tar.gz',
+        'DISTRIBUTION' => 'RJBS/Text-Soundex-3.04.tar.gz',
         'FILES'        => q[cpan/Text-Soundex],
         'MAP'          => {
             '' => 'cpan/Text-Soundex/',
index 41c78b1..364962b 100644 (file)
@@ -1,5 +1,10 @@
 Revision history for Perl extension Text::Soundex.
 
+3.04  Thu Feb  7 15:53:09 EST 2013 <rjbs@cpan.org>
+
+The module is going to be removed from the core distribution of perl, and will
+now warn (under warnings) if loaded from its installed-to-core location.
+
 3.02  Sun Feb 02 02:54:00 EST 2003 <mark@mielke.cc>
 
 The U8 type was over-used in 3.00 and 3.01. Now, "U8 *" is used only as a
index 598b8a8..83a55af 100644 (file)
@@ -19,7 +19,9 @@ use XSLoader ();
 
 use strict;
 
-our $VERSION   = '3.03_01';
+use if $] > 5.016, 'deprecate';
+
+our $VERSION   = '3.04';
 our @EXPORT_OK = qw(soundex soundex_unicode soundex_nara soundex_nara_unicode
                     $soundex_nocode);
 our @EXPORT    = qw(soundex soundex_nara $soundex_nocode);
index 1496338..d142471 100644 (file)
@@ -79,7 +79,7 @@ static void sv_soundex_initialize (void)
   sv_soundex_table['r'] = '6';
 }
 
-static SV *sv_soundex (SV *source)
+static SV *sv_soundex (SV* source)
 {
   char *source_p;
   char *source_end;