From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000)
Subject: Re: "perl -d" dumps core when loading syslog.ph
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77fbf95bce52fc1baf4250ae8811113b62899d0d;p=p5sagit%2Fp5-mst-13.2.git

Re: "perl -d" dumps core when loading syslog.ph

(this is the same change as commit 0996bf4347dd0a5b669d26c3867f4ed296150f0a, but as applied)
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 561c9fd..516e41e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2226,6 +2226,7 @@ int gimme;
     CvDEPTH(compcv) = 1;
 
     SP = stack_base + POPMARK;		/* pop original mark */
+    op = saveop;					/* The caller may need it. */
     RETURNOP(eval_start);
 }