Change 15296 by jhi@alpha on 2002/03/18 14:28:10
Undo accidental perl.h part of #15295 (wait for #15297)
Affected files ...
.... //depot/perl/perl.h#447 edit
Differences ...
==== //depot/perl/perl.h#447 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Mon Mar 18 07:45:05 2002
+++ perl/perl.h Mon Mar 18 07:45:05 2002
@@ -3183,7 +3183,7 @@
};
#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);
End of Patch.
