diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-04-20 05:45:48 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-21 19:42:04 +0000 |
| commit | 7b102d90616d2574b3c6a3d1942fcb59fc2aaefb (patch) | |
| tree | bdce710389ed19380024e4fc10fc0ec2543dcd4a /pp_sys.c | |
| parent | 56fcff86cbedc2a57183ad9c931fd8c116d23e4f (diff) | |
| download | perl-7b102d90616d2574b3c6a3d1942fcb59fc2aaefb.tar.gz | |
Fix another segfault case (warn called from UNIVERSAL::DESTROY).
Subject: Re: [perl #21347] segfault in UNIVERSAL::AUTOLOAD
Date: Sun, 20 Apr 2003 02:45:48 +0300
Message-ID: <20030419234548.GA849@ratsnest.hole>
and
Date: Wed, 2 Apr 2003 07:52:28 +0300
Message-ID: <20030402045227.GA1023@ratsnest.hole>
p4raw-id: //depot/perl@19300
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -423,7 +423,7 @@ PP(pp_warn) tmpsv = TOPs; } tmps = SvPV(tmpsv, len); - if (!tmps || !len) { + if ((!tmps || !len) && PL_errgv) { SV *error = ERRSV; (void)SvUPGRADE(error, SVt_PV); if (SvPOK(error) && SvCUR(error)) |