diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-09-30 21:23:34 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-13 21:03:05 +0000 |
| commit | 5a8cac993f5e531fd4379cb91dafffa00baacb2d (patch) | |
| tree | 99d478269c9454fa7fbfdde9678328e9e4820ff2 /ext/Devel | |
| parent | 5438961c527f841385f3ab1b8503235cb786f085 (diff) | |
| download | perl-5a8cac993f5e531fd4379cb91dafffa00baacb2d.tar.gz | |
Changes #20819 and #20996 break compatibility with perl 5.6.0
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <021e01c38777$93ea4e10$0c2f1fac@R2D2>
p4raw-id: //depot/perl@21445
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm index 102cb4ee75..d9e6ccce9d 100644 --- a/ext/Devel/PPPort/PPPort.pm +++ b/ext/Devel/PPPort/PPPort.pm @@ -802,7 +802,7 @@ SV *sv; # define PERL_SCAN_DISALLOW_PREFIX 0x02 #endif -#if (PERL_VERSION >= 6) +#if (PERL_VERSION > 6) || ((PERL_VERSION == 6) && (PERL_SUBVERSION >= 1)) #define I32_CAST #else #define I32_CAST (I32*) @@ -885,7 +885,7 @@ bool Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send) { #ifdef USE_LOCALE_NUMERIC -#if (PERL_VERSION >= 6) +#if (PERL_VERSION > 6) || ((PERL_VERSION == 6) && (PERL_SUBVERSION >= 1)) if (PL_numeric_radix_sv && IN_LOCALE) { STRLEN len; char* radix = SvPV(PL_numeric_radix_sv, len); |