From b77f7d40943072c6b8a82e9e0fbdcc2d346120ee Mon Sep 17 00:00:00 2001
From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Fri, 7 Mar 2003 05:12:49 -0800
Subject: Re: odd (or not so odd?) segmentation fault in 5.8.0 Message-ID:
 <RtQa+gzkg2kF092yn@efn.org>

p4raw-id: //depot/perl@18889
---
 t/op/tie.t | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 't')

diff --git a/t/op/tie.t b/t/op/tie.t
index 6e73ceec85..49c189e66f 100755
--- 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.
-- 
cgit v1.2.1