This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH t/op/tie.t
authorRobin Barker <RMBarker@cpan.org>
Thu, 30 Mar 2006 13:07:47 +0000 (14:07 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 30 Mar 2006 12:15:35 +0000 (12:15 +0000)
Message-ID: <533D273D4014D411AB1D00062938C4D90849C9CA@hotel.npl.ad.local>

p4raw-id: //depot/perl@27633

t/op/tie.t

index 8cb4539..68a773d 100755 (executable)
@@ -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