diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-19 00:14:57 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-26 08:33:54 +0000 |
| commit | 2f647fb2ca495f131b655d676cce3e88a9090ef9 (patch) | |
| tree | 0296dab5586da88250d717fef2acac443f51a0cb /op.c | |
| parent | b5f5ff401c8b227d693fbae417b9c4815b5772fb (diff) | |
| download | perl-2f647fb2ca495f131b655d676cce3e88a9090ef9.tar.gz | |
Re: Advice on coredump
Message-Id: <20020918221457.16cb1b43.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@17923
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4393,7 +4393,7 @@ Perl_cv_undef(pTHX_ CV *cv) AV *padlist = CvPADLIST(cv); I32 ix; /* pads may be cleared out already during global destruction */ - if (is_eval && !PL_dirty) { + if ((is_eval && !PL_dirty) || CvSPECIAL(cv)) { /* inner references to eval's cv must be fixed up */ AV *comppad_name = (AV*)AvARRAY(padlist)[0]; AV *comppad = (AV*)AvARRAY(padlist)[1]; |