summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-07-28 09:09:56 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-07-29 08:31:51 +0000
commit2d03de9c8d99c75ed163fdcdde85a243a29ccc8c (patch)
tree78d3e20180d05bcabfa8b3f28e74aa3a94e05edf /pp_ctl.c
parent7adf7a021c614ccf36e9216ce29d1eafb15992bf (diff)
downloadperl-2d03de9c8d99c75ed163fdcdde85a243a29ccc8c.tar.gz
More embed.fnc goodness
Message-ID: <20050728190956.GB607@petdance.com> p4raw-id: //depot/perl@25243
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index b511b0ef40..faa07f0ff4 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1408,7 +1408,7 @@ Perl_die_where(pTHX_ const char *message, STRLEN msglen)
if (message) {
if (PL_in_eval & EVAL_KEEPERR) {
static const char prefix[] = "\t(in cleanup) ";
- SV *err = ERRSV;
+ SV * const err = ERRSV;
const char *e = Nullch;
if (!SvPOK(err))
sv_setpvn(err,"",0);