From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 11:00:54 +0000 (+0000)
Subject: Eliminate more C<n_a>s
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95fad9186c8842cfbbfcf6573db9e0dcadbce69c;p=p5sagit%2Fp5-mst-13.2.git

Eliminate more C<n_a>s

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

diff --git a/XSUB.h b/XSUB.h
index 24a5607..52f66a6 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -260,8 +260,8 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
 #ifdef XS_VERSION
 #  define XS_VERSION_BOOTCHECK \
     STMT_START {							\
-	SV *_sv; STRLEN n_a;						\
-	const char *vn = Nullch, *module = SvPV_const(ST(0),n_a);	\
+	SV *_sv;							\
+	const char *vn = Nullch, *module = SvPV_nolen_const(ST(0));	\
 	if (items >= 2)	 /* version supplied as bootstrap arg */	\
 	    _sv = ST(1);						\
 	else {								\
diff --git a/pp.h b/pp.h
index 1ca2fab..8f127d1 100644
--- a/pp.h
+++ b/pp.h
@@ -142,7 +142,7 @@ Pops a long off the stack.
 #define TOPm1s		(*(sp-1))
 #define TOPp1s		(*(sp+1))
 #define TOPp		(SvPV(TOPs, PL_na))		/* deprecated */
-#define TOPpx		(SvPV(TOPs, n_a))
+#define TOPpx		(SvPV_nolen(TOPs))
 #define TOPn		(SvNV(TOPs))
 #define TOPi		((IV)SvIV(TOPs))
 #define TOPu		((UV)SvUV(TOPs))