From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000)
Subject: Some perldb -> PERLDB_* macro changes were missed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08ea043f90d6fea4e1b9bc32f82e31d999c4b3d1;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 5489d9c..561c9fd 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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. */
     }