From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 7 Jun 2005 12:06:13 +0000 (+0000)
Subject: POPpx needs a const equivalent.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39782eaabbd2e35b3f34463796651b4d05002ac2;p=p5sagit%2Fp5-mst-13.2.git

POPpx needs a const equivalent.

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

diff --git a/pp.h b/pp.h
index abf6d9b..dec43c7 100644
--- a/pp.h
+++ b/pp.h
@@ -129,6 +129,7 @@ Pops a long off the stack.
 #define POPs		(*sp--)
 #define POPp		(SvPVx(POPs, PL_na))		/* deprecated */
 #define POPpx		(SvPVx(POPs, n_a))
+#define POPpconstx	(SvPVx_const(POPs, n_a))
 #define POPpbytex	(SvPVbytex(POPs, n_a))
 #define POPn		(SvNVx(POPs))
 #define POPi		((IV)SvIVx(POPs))