diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1997-06-10 09:18:04 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | e506e7760ce134b6f8488b1be20fa43aff226564 (patch) | |
| tree | f7fa406148eb56b10c648526cba4ef25c0018971 /pp_ctl.c | |
| parent | ba42ef2f2ea88c3f5a11e84f45a088a96c09b9b5 (diff) | |
| download | perl-e506e7760ce134b6f8488b1be20fa43aff226564.tar.gz | |
$\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
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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); |