diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +1200 |
| commit | 08ea043f90d6fea4e1b9bc32f82e31d999c4b3d1 (patch) | |
| tree | 6baf6516a80ed485d74372075ef7bd703a23c93c /pp_ctl.c | |
| parent | 8490252049bf42d3d2f75d89178a8682bf22ba74 (diff) | |
| download | perl-08ea043f90d6fea4e1b9bc32f82e31d999c4b3d1.tar.gz | |
Some perldb -> PERLDB_* macro changes were missed
Subject: [PATCH] After 4_02 perldb again
A couple of places where perldb is mentioned slipped through the
cracks of the previous patch:
p5p-msgid: 199708100323.XAA27155@monk.mps.ohio-state.edu
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2412,11 +2412,11 @@ PP(pp_entereval) /* prepare to compile string */ - if (perldb && curstash != debstash) + if (PERLDB_LINE && curstash != debstash) save_lines(GvAV(compiling.cop_filegv), linestr); PUTBACK; ret = doeval(gimme); - if (perldb && was != sub_generation /* Some subs defined here. */ + if (PERLDB_INTER && was != sub_generation /* Some subs defined here. */ && ret != op->op_next) { /* Successive compilation. */ strcpy(safestr, "_<(eval )"); /* Anything fake and short. */ } |