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