From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Mon, 9 Jun 1997 21:18:04 +0000 (+1200)
Subject: $\1 and serious bug in evalling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e506e7760ce134b6f8488b1be20fa43aff226564;p=p5sagit%2Fp5-mst-13.2.git

$\1 and serious bug in evalling

A bug report of several hours ago (that you cannot enter $\1 in
debugger with some combinations of mallocs and ReadLines) is fixed by
this:

p5p-msgid: 199707262127.RAA12883@monk.mps.ohio-state.edu
---

diff --git a/pp_ctl.c b/pp_ctl.c
index ccef138..df28463 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2411,7 +2411,8 @@ PP(pp_entereval)
 	save_lines(GvAV(compiling.cop_filegv), linestr);
     PUTBACK;
     ret = doeval(gimme);
-    if (perldb && was != sub_generation) { /* Some subs defined here. */
+    if (perldb && was != sub_generation /* Some subs defined here. */
+	&& ret != op->op_next) {	/* Successive compilation. */
 	strcpy(safestr, "_<(eval )");	/* Anything fake and short. */
     }
     return DOCATCH(ret);