diff options
| author | Robin Barker <RMBarker@cpan.org> | 2006-03-30 14:07:47 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-30 12:15:35 +0000 |
| commit | 64207fdecf440d47a0141fa8dc2b88f627811e7c (patch) | |
| tree | 932e69d0c275b39929aba4a7a5d53ca8d9e879ec /t/op/tie.t | |
| parent | c95d0e17d41adab48cd67f4e46a8183fa17438e1 (diff) | |
| download | perl-64207fdecf440d47a0141fa8dc2b88f627811e7c.tar.gz | |
PATCH t/op/tie.t
Message-ID: <533D273D4014D411AB1D00062938C4D90849C9CA@hotel.npl.ad.local>
p4raw-id: //depot/perl@27633
Diffstat (limited to 't/op/tie.t')
| -rwxr-xr-x | t/op/tie.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 8cb45398ad..68a773dc89 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -585,3 +585,11 @@ tie $h, "main"; print $h.$h; EXPECT 01 +######## +sub TIESCALAR { my $foo = $_[1]; bless \$foo, $_[0] } +sub FETCH { ${$_[0]} } +tie my $x, "main", 2; +tie my $y, "main", 8; +print $x | $y; +EXPECT +10 |