diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 14:28:10 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 14:28:10 +0000 |
commit | 44513350cdc313b5a0c1fcf32a9a2db7a735db03 (patch) | |
tree | de4c3faef755009d8f28e176b19ffe529504e8f9 /perl.h | |
parent | 345c69e9b0e03d9315f568046674ffa653e13358 (diff) | |
download | perl-44513350cdc313b5a0c1fcf32a9a2db7a735db03.tar.gz |
Undo accidental perl.h part of #15295 (wait for #15297)
p4raw-id: //depot/perl@15296
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |