Eliminate more C<n_a>s
Nicholas Clark [Wed, 8 Jun 2005 11:00:54 +0000 (11:00 +0000)]
p4raw-id: //depot/perl@24757

XSUB.h
pp.h

diff --git a/XSUB.h b/XSUB.h
index 24a5607..52f66a6 100644 (file)
--- 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 (file)
--- 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))