From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Tue, 30 Sep 2003 19:23:34 +0000 (+0200)
Subject: Changes #20819 and #20996 break compatibility with perl 5.6.0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a8cac993f5e531fd4379cb91dafffa00baacb2d;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 102cb4e..d9e6ccc 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);