Eliminate more C<n_a>s

p4raw-id: //depot/perl@24757

2 files changed, 3 insertions, 3 deletions

diff --git a/XSUB.h b/XSUB.h
index 24a5607f24..52f66a600a 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 1ca2fabc8c..8f127d1208 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))