From: Robin Barker <RMBarker@cpan.org>
Date: Mon, 24 Dec 2007 20:56:13 +0000 (+0000)
Subject: PATCH re 32711
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f36f092f89152cd3ffb1cb9d8754c1edcc4ab53;p=p5sagit%2Fp5-mst-13.2.git

PATCH re 32711
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D0939A4@exchsvr2.npl.ad.local>

"IMO patch 32711 is better implemented using (the existing) NUM2PTR macro, as below/attached."

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

diff --git a/pp_hot.c b/pp_hot.c
index a2f9785..367f03e 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1327,7 +1327,8 @@ play_it_again:
 	     && !SvROK(TARG))	/* Cannot trust since INTUIT cannot guess ^ */
 	    goto yup;
     }
-    if (CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase, minmatch, TARG, INT2PTR(void*, (UV)gpos), r_flags))
+    if (CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase,
+                    minmatch, TARG, NUM2PTR(void*, gpos), r_flags))
     {
 	PL_curpm = pm;
 	if (dynpm->op_pmflags & PMf_ONCE) {