From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 9 Mar 2006 10:53:25 +0000 (+0000)
Subject: Bodge MAD code to get pack.t and ext/Encode/t/Encode.t passing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cc8d5892ed2db9918b7fc38862edb74459a28d0;p=p5sagit%2Fp5-mst-13.2.git

Bodge MAD code to get pack.t and ext/Encode/t/Encode.t passing.

p4raw-id: //depot/perl@27430
---

diff --git a/op.c b/op.c
index dd85eaf..518b525 100644
--- a/op.c
+++ b/op.c
@@ -332,8 +332,14 @@ Perl_op_clear(pTHX_ OP *o)
 #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: