projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
More tests
[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