From: Simon Cozens <simon@netthink.co.uk>
Date: Sun, 10 Dec 2000 00:55:37 +0000 (+0000)
Subject: Re: [ID 20001202.002] [BUG all] 'die qr{pattern}' does not check termination
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf484eac86d1083a9dc1877646bb27c0a016b364;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20001202.002] [BUG all] 'die qr{pattern}' does not check termination
Message-ID: <20001210005537.B16221@deep-dark-truthful-mirror.perlhacker.org>

p4raw-id: //depot/perl@8066
---

diff --git a/pp_sys.c b/pp_sys.c
index da148d8..7d6386e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -448,7 +448,7 @@ PP(pp_die)
     }
     else {
 	tmpsv = TOPs;
-	tmps = SvROK(tmpsv) ? Nullch : SvPV(tmpsv, len);
+        tmps = (SvROK(tmpsv) && PL_in_eval) ? Nullch : SvPV(tmpsv, len);
     }
     if (!tmps || !len) {
   	SV *error = ERRSV;