From: Bram <p5p@perl.wizbit.be>
Date: Sun, 1 Nov 2009 00:17:57 +0000 (-0500)
Subject: [PATCH] extra tests for t/op/tie.t (was RE: [perl #53482] I believe I found a bug... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7de9d14ea5825e7555ec8154a1b3731aa00948b6;p=p5sagit%2Fp5-mst-13.2.git

[PATCH] extra tests for t/op/tie.t (was RE: [perl #53482] I believe I found a bug with Readonly::XS that might actually be a guts bug.)
---

diff --git a/t/op/tie.t b/t/op/tie.t
index 8298ed2..8daa8b0 100644
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -588,13 +588,19 @@ print $h.$h;
 EXPECT
 01
 ########
+# Bug 53482 (and maybe others)
 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
+tie my $x1, "main", 2;
+tie my $y1, "main", 8;
+print $x1 | $y1;
+print $x1 | $y1;
+tie my $x2, "main", "2";
+tie my $y2, "main", "8";
+print $x2 | $y2;
+print $x2 | $y2;
+EXPECT
+1010::
 ########
 # Bug 36267
 sub TIEHASH  { bless {}, $_[0] }