From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 16 Dec 2006 02:53:59 +0000 (+0000)
Subject: don't include MAD code when its not needed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fbbb0949fb5d97bb5d3054c00542ffb2f1aed7cf;p=p5sagit%2Fp5-mst-13.2.git

don't include MAD code when its not needed

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

diff --git a/op.c b/op.c
index 03f54b1..2ed2198 100644
--- a/op.c
+++ b/op.c
@@ -2826,9 +2826,12 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 {
     dVAR;
     SV * const tstr = ((SVOP*)expr)->op_sv;
-    SV * const rstr = (repl->op_type == OP_NULL)
-			    ? ((SVOP*)((LISTOP*)repl)->op_first)->op_sv
-			    : ((SVOP*)repl)->op_sv;
+    SV * const rstr =
+#ifdef PERL_MAD
+			(repl->op_type == OP_NULL)
+			    ? ((SVOP*)((LISTOP*)repl)->op_first)->op_sv :
+#endif
+			      ((SVOP*)repl)->op_sv;
     STRLEN tlen;
     STRLEN rlen;
     const U8 *t = (U8*)SvPV_const(tstr, tlen);