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 /util.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 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1247,7 +1247,7 @@ Perl_vwarn(pTHX_ const char* pat, va_list *args) } /* if STDERR is tied, use it instead */ - if (PL_stderrgv && (io = GvIOp(PL_stderrgv)) + if (PL_stderrgv && SvREFCNT(PL_stderrgv) && (io = GvIO(PL_stderrgv)) && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) { dSP; ENTER; PUSHMARK(SP); |