diff options
| author | Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de> | 2003-09-18 12:14:58 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-18 10:59:58 +0000 |
| commit | d1bddb8e6a8a26e4cebf65fd8f44b156b4784f23 (patch) | |
| tree | 7938665b84bdb23df27a33454f876d8f30346ff3 /ext/Devel | |
| parent | bfbb31907f1e2c6e9062e3105f81124f92b651bf (diff) | |
| download | perl-d1bddb8e6a8a26e4cebf65fd8f44b156b4784f23.tar.gz | |
small fix for Devel::PPPort
Message-id: <20030918081458.GA2653@ethan>
p4raw-id: //depot/perl@21274
Diffstat (limited to 'ext/Devel')
| -rwxr-xr-x | ext/Devel/PPPort/Changes | 4 | ||||
| -rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes index 5c5ea4e884..1e597fb9c8 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 3fbd76cc86..9793c681f4 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; |