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 (executable)
--- 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