Another ex-PVBM assert

[p5sagit/p5-mst-13.2.git] / t / op / tie.t

diff --git a/t/op/tie.t b/t/op/tie.t
index a8d79fb..5ea2cda 100755 (executable)
--- 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