From: Robin Barker <RMBarker@cpan.org>
Date: Thu, 30 Mar 2006 13:07:47 +0000 (+0100)
Subject: PATCH t/op/tie.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=64207fdecf440d47a0141fa8dc2b88f627811e7c;p=p5sagit%2Fp5-mst-13.2.git

PATCH t/op/tie.t
Message-ID: <533D273D4014D411AB1D00062938C4D90849C9CA@hotel.npl.ad.local>

p4raw-id: //depot/perl@27633
---

diff --git a/t/op/tie.t b/t/op/tie.t
index 8cb4539..68a773d 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