diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 06:33:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 06:33:43 +0000 |
| commit | 33c2748902d07b7ec367f87ad66e61e89f2aa994 (patch) | |
| tree | fde7996e8953d60e19976c0365224c3ba03cf565 /t/op/tie.t | |
| parent | 2e7e7c6ca2ccdf33926d1330538338beae355adb (diff) | |
| download | perl-33c2748902d07b7ec367f87ad66e61e89f2aa994.tar.gz | |
integrate changes#1982,2014,2021 (from maint-5.005)
p4raw-link: @2021 on //depot/maint-5.005/perl: ece095e7b265a16d4ec3543b1418100f9c635a87
p4raw-link: @2014 on //depot/maint-5.005/perl: cca0b9804acab4b7678c0f185888d57497a5c2a9
p4raw-link: @1982 on //depot/maint-5.005/perl: fe676099d996f70caaedeb6ae85adc3ee59d2240
p4raw-id: //depot/perl@2059
Diffstat (limited to 't/op/tie.t')
| -rwxr-xr-x | t/op/tie.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index f1b12d6d81..451dee07b3 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -153,3 +153,16 @@ $C = $B = tied %H ; } untie %H; EXPECT +######## + +# verify no leak when underlying object is selfsame tied variable +my ($a, $b); +sub Self::TIEHASH { bless $_[1], $_[0] } +sub Self::DESTROY { $b = $_[0] + 0; } +{ + my %b5; + $a = \%b5 + 0; + tie %b5, 'Self', \%b5; +} +die unless $a == $b; +EXPECT |