Change 29561: don't include MAD code when its not needed

[Dave Mitchell]

Change 29561 by [EMAIL PROTECTED] on 2006/12/16 02:53:59

        don't include MAD code when its not needed

Affected files ...

... //depot/perl/op.c#861 edit

Differences ...

==== //depot/perl/op.c#861 (text) ====
Index: perl/op.c
--- perl/op.c#860~29553~        2006-12-14 01:37:45.000000000 -0800
+++ perl/op.c   2006-12-15 18:53:59.000000000 -0800
@@ -2826,9 +2826,12 @@
 {
     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);
End of Patch.