From 95fad9186c8842cfbbfcf6573db9e0dcadbce69c Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 8 Jun 2005 11:00:54 +0000 Subject: Eliminate more Cs p4raw-id: //depot/perl@24757 --- pp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp.h') 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)) -- cgit v1.2.1