X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.h;h=64020020c8f33be7773c8d1c45f718b1645b4d69;hb=619ffc2be66f166b301c5b0d14a8bbba728675bc;hp=5fbffb89c5c9696d02cc19ac5bda263ae99ef256;hpb=0f4592effc29e9b2deb638f6f7e6129ffa8326e3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.h b/pp.h
index 5fbffb8..6402002 100644
--- a/pp.h
+++ b/pp.h
@@ -58,14 +58,16 @@
 #define RETURNX(x)	return x, PUTBACK, NORMAL
 
 #define POPs		(*sp--)
-#define POPp		(SvPVx(POPs, PL_na))
+#define POPp		(SvPVx(POPs, PL_na))		/* deprecated */
+#define POPpx		(SvPVx(POPs, n_a))
 #define POPn		(SvNVx(POPs))
 #define POPi		((IV)SvIVx(POPs))
 #define POPu		((UV)SvUVx(POPs))
 #define POPl		((long)SvIVx(POPs))
 
 #define TOPs		(*sp)
-#define TOPp		(SvPV(TOPs, PL_na))
+#define TOPp		(SvPV(TOPs, PL_na))		/* deprecated */
+#define TOPpx		(SvPV(TOPs, n_a))
 #define TOPn		(SvNV(TOPs))
 #define TOPi		((IV)SvIV(TOPs))
 #define TOPu		((UV)SvUV(TOPs))