diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-06-24 14:16:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-24 17:32:37 +0000 |
| commit | 23bb1b96cfae0dc23679ea6dd44cf0deadeb9fbf (patch) | |
| tree | f6af1255524f2e041fcf01d227787c45eaedcfe1 /t | |
| parent | 979d099a6fff3899afa990942da5a3db40e87a12 (diff) | |
| download | perl-23bb1b96cfae0dc23679ea6dd44cf0deadeb9fbf.tar.gz | |
Re: [perl #22719] ISA cache problem with blessed stash objects
Message-ID: <20030624121618.GC22675@fdgroup.com>
p4raw-id: //depot/perl@19849
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/ref.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index d4c290efb6..3bb280c1ea 100755 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -5,7 +5,7 @@ BEGIN { @INC = qw(. ../lib); } -print "1..67\n"; +print "1..68\n"; require 'test.pl'; @@ -350,6 +350,14 @@ runperl(prog => 'sub UNIVERSAL::DESTROY { warn } bless \$a, A', stderr => 1); if ($? != 0) { print "not " }; print "ok ",++$test," - warn called inside UNIVERSAL::DESTROY\n"; + +# bug #22719 + +runperl(prog => 'sub f { my $x = shift; *z = $x; } f({}); f();'); +if ($? != 0) { print "not " }; +print "ok ",++$test," - coredump on typeglob = (SvRV && !SvROK)\n"; + + # test global destruction ++$test; |