small fix for Devel::PPPort

Message-id: <20030918081458.GA2653@ethan>

p4raw-id: //depot/perl@21274

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index 5c5ea4e..1e597fb 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,7 @@
+2.007 - 18th September 2003
+
+    * small fix in grok_numeric_radix: variable was used uninitialized
+
 2.006 - 8th September 2003
 
     * call_(pv|sv|method|argv) added

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 3fbd76c..9793c68 100644 (file)
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -160,7 +160,7 @@ require DynaLoader;
 use strict;
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $data );
 
-$VERSION = "2.006";
+$VERSION = "2.007";
 
 @ISA = qw(Exporter DynaLoader);
 @EXPORT =  qw();
@@ -902,7 +902,7 @@ Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
     struct lconv *lc = localeconv();
     char *radix = lc->decimal_point;
     if (radix && IN_LOCALE) { 
-        STRLEN len;
+        STRLEN len = strlen(radix);
         if (*sp + len <= send && memEQ(*sp, radix, len)) {
             *sp += len;
             return TRUE;