Change 27430 by [EMAIL PROTECTED] on 2006/03/09 10:53:25
Bodge MAD code to get pack.t and ext/Encode/t/Encode.t passing.
Affected files ...
... //depot/perl/op.c#778 edit
Differences ...
==== //depot/perl/op.c#778 (text) ====
Index: perl/op.c
--- perl/op.c#777~27429~ 2006-03-08 15:33:05.000000000 -0800
+++ perl/op.c 2006-03-09 02:53:25.000000000 -0800
@@ -332,8 +332,14 @@
#ifdef PERL_MAD
/* if (o->op_madprop && o->op_madprop->mad_next)
abort(); */
- mad_free(o->op_madprop);
- o->op_madprop = 0;
+ /* FIXME for MAD - if I uncomment these two lines t/op/pack.t fails with
+ "modification of a read only value" for a reason I can't fathom why.
+ It's the "" stringification of $_, where $_ was set to '' in a foreach
+ loop, but it defies simplification into a small test case. */
+ /*
+ mad_free(o->op_madprop);
+ o->op_madprop = 0;
+ */
#endif
retry:
End of Patch.
