From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Mar 2002 14:28:10 +0000 (+0000)
Subject: Undo accidental perl.h part of #15295 (wait for #15297)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44513350cdc313b5a0c1fcf32a9a2db7a735db03;p=p5sagit%2Fp5-mst-13.2.git

Undo accidental perl.h part of #15295 (wait for #15297)

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

diff --git a/perl.h b/perl.h
index 02e3f9c..f7bf179 100644
--- a/perl.h
+++ b/perl.h
@@ -3183,7 +3183,7 @@ struct perl_debug_pad {
 };
 
 #define PERL_DEBUG_PAD(i)	&(PL_debug_pad.pad[i])
-#define PERL_DEBUG_PAD_ZERO(i)	(SvPVX(PERL_DEBUG_PAD(i))[0] = 0, SvCUR(PERL_DEBUG_PAD(i)) = 0, PERL_DEBUG_PAD(i))
+#define PERL_DEBUG_PAD_ZERO(i)	(sv_setpvn(PERL_DEBUG_PAD(i), "", 0), PERL_DEBUG_PAD(i))
 
 /* Enable variables which are pointers to functions */
 typedef void (CPERLscope(*peep_t))(pTHX_ OP* o);