Note the weakref.t failure that commenting out this code caused.

Pesky waterbeds.

p4raw-id: //depot/perl@27432

diff --git a/op.c b/op.c
index 518b525..a2f4bf9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -335,7 +335,9 @@ Perl_op_clear(pTHX_ OP *o)
     /* 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.  */
+       loop, but it defies simplification into a small test case.
+       However, commenting them out has caused ext/List/Util/t/weak.t to fail
+       the last test.  */
     /*
       mad_free(o->op_madprop);
       o->op_madprop = 0;