From: Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de>
Date: Thu, 18 Sep 2003 10:14:58 +0000 (+0200)
Subject: small fix for Devel::PPPort
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1bddb8e6a8a26e4cebf65fd8f44b156b4784f23;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;