Change 27435 by [EMAIL PROTECTED] on 2006/03/09 12:41:40
Tweaking the order of op creation/op free in Perl_ck_require to Larry's
order doesn't make tests pass :-(. Nor does it make them fail.
Affected files ...
... //depot/perl/op.c#781 edit
Differences ...
==== //depot/perl/op.c#781 (text) ====
Index: perl/op.c
--- perl/op.c#780~27433~ 2006-03-09 04:01:36.000000000 -0800
+++ perl/op.c 2006-03-09 04:41:40.000000000 -0800
@@ -6836,18 +6836,18 @@
if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
OP * const kid = cUNOPo->op_first;
- OP * newop
- = ck_subr(newUNOP(OP_ENTERSUB, OPf_STACKED,
- append_elem(OP_LIST, kid,
- scalar(newUNOP(OP_RV2CV, 0,
- newGVOP(OP_GV, 0,
- gv))))));
+ OP * newop;
+
cUNOPo->op_first = 0;
-#ifdef PERL_MAD
- op_getmad(o,newop,'O');
-#else
+#ifndef PERL_MAD
op_free(o);
#endif
+ newop = ck_subr(newUNOP(OP_ENTERSUB, OPf_STACKED,
+ append_elem(OP_LIST, kid,
+ scalar(newUNOP(OP_RV2CV, 0,
+ newGVOP(OP_GV, 0,
+ gv))))));
+ op_getmad(o,newop,'O');
return newop;
}
End of Patch.
