diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-12-10 00:55:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-10 03:50:30 +0000 |
| commit | bf484eac86d1083a9dc1877646bb27c0a016b364 (patch) | |
| tree | e19024ba68bad6dfcf40c066da1558c3cee2220b /pp_sys.c | |
| parent | 337449a83e0de486c744f78c32c1bf4cd78b06ec (diff) | |
| download | perl-bf484eac86d1083a9dc1877646bb27c0a016b364.tar.gz | |
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
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |