diff options
| author | Steve Grazzini <grazz@pobox.com> | 2003-06-15 21:02:26 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-16 21:14:26 +0000 |
| commit | 168696769693b5e65a30c0a0a677c7f648e8370e (patch) | |
| tree | 30999cdcff44a5bd7c5930fff120ff6010c3542c /pp_ctl.c | |
| parent | fa76202e3aa22e9755f1a461416769c368b47afc (diff) | |
| download | perl-168696769693b5e65a30c0a0a677c7f648e8370e.tar.gz | |
unnecessary stringification in eval/die
Message-ID: <20030615210226.56430.qmail@onion.perl.org>
(See also <slrnbek5u6.cfi.joey@dragon.kitenet.net>
in c.l.p.misc and bug #17763)
p4raw-id: //depot/perl@19800
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1365,8 +1365,6 @@ Perl_die_where(pTHX_ char *message, STRLEN msglen) sv_setpvn(ERRSV, message, msglen); } } - else - message = SvPVx(ERRSV, msglen); while ((cxix = dopoptoeval(cxstack_ix)) < 0 && PL_curstackinfo->si_prev) @@ -1383,6 +1381,8 @@ Perl_die_where(pTHX_ char *message, STRLEN msglen) POPBLOCK(cx,PL_curpm); if (CxTYPE(cx) != CXt_EVAL) { + if (!message) + message = SvPVx(ERRSV, msglen); PerlIO_write(Perl_error_log, "panic: die ", 11); PerlIO_write(Perl_error_log, message, msglen); my_exit(1); |