From 295222340ad6893caa0a1c3479155f88ea290dc3 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 13 Dec 2006 17:16:22 +0000
Subject: misc MAD coredump fixes and parser leak fixes

- fix MAD coredump in tr///
- fix mad coredump in multi-line string literals
- kill some MAD uninit value warnings
- don't allow assignment to $n in perly.y
- make op_dump handle op_latefree flags

p4raw-id: //depot/perl@29548
---
 op.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index cacad6ee0b..66587c068e 100644
--- a/op.c
+++ b/op.c
@@ -2826,7 +2826,9 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 {
     dVAR;
     SV * const tstr = ((SVOP*)expr)->op_sv;
-    SV * const rstr = ((SVOP*)repl)->op_sv;
+    SV * const rstr = (repl->op_type == OP_NULL)
+			    ? ((SVOP*)((LISTOP*)repl)->op_first)->op_sv
+			    : ((SVOP*)repl)->op_sv;
     STRLEN tlen;
     STRLEN rlen;
     const U8 *t = (U8*)SvPV_const(tstr, tlen);
-- 
cgit v1.2.1