summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-03-18 14:28:10 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-18 14:28:10 +0000
commit44513350cdc313b5a0c1fcf32a9a2db7a735db03 (patch)
treede4c3faef755009d8f28e176b19ffe529504e8f9
parent345c69e9b0e03d9315f568046674ffa653e13358 (diff)
downloadperl-44513350cdc313b5a0c1fcf32a9a2db7a735db03.tar.gz
Undo accidental perl.h part of #15295 (wait for #15297)
p4raw-id: //depot/perl@15296
-rw-r--r--perl.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 02e3f9c60e..f7bf179930 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);