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 /t/op/ref.t | |
| 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 't/op/ref.t')
| -rwxr-xr-x | t/op/ref.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index ae3eef7dbf..b29dcb77ac 100755 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -5,7 +5,7 @@ BEGIN { @INC = qw(. ../lib); } -print "1..66\n"; +print "1..67\n"; require 'test.pl'; @@ -346,6 +346,10 @@ runperl(prog => 'sub UNIVERSAL::AUTOLOAD { qr// } a->p' ); if ($? != 0) { print "not " }; print "ok ",++$test," - UNIVERSAL::AUTOLOAD called when freeing qr//\n"; +runperl(prog => 'sub UNIVERSAL::DESTROY { warn } bless \$a, A', stderr => 1); +if ($? != 0) { print "not " }; +print "ok ",++$test," - warn called inside UNIVERSAL::DESTROY\n"; + # test global destruction ++$test; |