diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-11-03 07:48:18 -0800 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-07 13:21:15 +0000 |
| commit | b5ccf5f2cdb7415d32c161b40f11284c4f37fb57 (patch) | |
| tree | aa4834bbea85de1a7914b496055a73656e88652b /t/op/tie.t | |
| parent | 479b2847c3fbb8fe8ee4a5811514a771839458c4 (diff) | |
| download | perl-b5ccf5f2cdb7415d32c161b40f11284c4f37fb57.tar.gz | |
Re: [perl #18038] DESTROY change in 5.8.0?
Message-ID: <CXbx9gzkgS8W092yn@efn.org>
p4raw-id: //depot/perl@18121
Diffstat (limited to 't/op/tie.t')
| -rwxr-xr-x | t/op/tie.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index d3bd45274d..6e73ceec85 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -183,7 +183,7 @@ die "self-tied scalar not DESTROYed" unless $destroyed == 1; EXPECT ######## -# TODO Allowed glob self-ties +# Allowed glob self-ties my $destroyed = 0; my $printed = 0; sub Self2::TIEHANDLE { bless $_[1], $_[0] } @@ -204,15 +204,34 @@ EXPECT my $destroyed = 0; sub Self3::TIEHANDLE { bless $_[1], $_[0] } sub Self3::DESTROY { $destroyed = 1; } +sub Self3::PRINT { $printed = 1; } { use Symbol 'geniosym'; my $c = geniosym; tie *$c, 'Self3', $c; + print $c 'Hello'; } +die "self-tied IO not PRINTed" unless $printed == 1; die "self-tied IO not DESTROYed" unless $destroyed == 1; EXPECT ######## +# TODO IO "self-tie" via TEMP glob +my $destroyed = 0; +sub Self3::TIEHANDLE { bless $_[1], $_[0] } +sub Self3::DESTROY { $destroyed = 1; } +sub Self3::PRINT { $printed = 1; } +{ + use Symbol 'geniosym'; + my $c = geniosym; + tie *$c, 'Self3', \*$c; + print $c 'Hello'; +} +die "IO tied to TEMP glob not PRINTed" unless $printed == 1; +die "IO tied to TEMP glob not DESTROYed" unless $destroyed == 1; +EXPECT +######## + # Interaction of tie and vec my ($a, $b); |