Handle PERLIO= and document a bit.

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

diff --git a/t/op/tie.t b/t/op/tie.t
index 6e73cee..49c189e 100755 (executable)
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -286,3 +286,12 @@ EXPECT
 7
 8
 0
+########
+#
+# FETCH freeing tie'd SV
+sub TIESCALAR { bless [] }
+sub FETCH { *a = \1; 1 }
+tie $a, 'main';
+print $a;
+EXPECT
+Tied variable freed while still in use at - line 6.