[PATCH] extra tests for t/op/tie.t (was RE: [perl #53482] I believe I found a bug...

diff --git a/t/op/tie.t b/t/op/tie.t
index 8298ed2..8daa8b0 100644 (file)
--- 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] }