From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 1 Jul 2007 12:30:50 +0000 (+0000)
Subject: test that localised tieing of a hash or array remains local
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4c21a45d6a63257ddc67da8a232ebd93cbc48bc;p=p5sagit%2Fp5-mst-13.2.git

test that localised tieing of a hash or array remains local
(tests for change #31505)
p4raw-link: @31505 on //depot/perl: c4a7531db1b7667c9d43fd3494f5bbf4901ff149

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

diff --git a/t/op/tie.t b/t/op/tie.t
index a8d79fb..5ea2cda 100755
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -622,3 +622,19 @@ foreach my $var ($VAR) {
 }
 EXPECT
 yes
+########
+sub TIEARRAY { bless [], 'main' }
+{
+    local @a;
+    tie @a, 'main';
+}
+print "tied\n" if tied @a;
+EXPECT
+########
+sub TIEHASH { bless [], 'main' }
+{
+    local %h;
+    tie %h, 'main';
+}
+print "tied\n" if tied %h;
+EXPECT