From: Jan Dubois <jand@activestate.com>
Date: Wed, 8 Oct 2003 20:37:42 +0000 (-0700)
Subject: Devel::PPPort is missing an aTHX when calling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9f7248f5bf0348b2c36c1de17da1068f6300b55;p=p5sagit%2Fp5-mst-13.2.git

Devel::PPPort is missing an aTHX when calling
	 grok_numeric_radix()
Message-Id: <8kl9ov0932qo08o24uafuc9v77clrgnoe4@4ax.com>

p4raw-id: //depot/perl@21428
---

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index d97832e..102cb4e 100644
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -877,7 +877,7 @@ static UV _grok_bin (char *string, STRLEN *len, I32 *flags, NV *result) {
 #endif
    
 #ifndef grok_numeric_radix
-#   define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send)
+#   define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(aTHX_ sp, send)
 
 #define grok_numeric_radix Perl_grok_numeric_radix