diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2003-03-07 05:12:49 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-10 19:55:06 +0000 |
| commit | b77f7d40943072c6b8a82e9e0fbdcc2d346120ee (patch) | |
| tree | 3d52b1a0ba2b23673c376f14b93f984dd323110a /t/op/tie.t | |
| parent | 9d60fda321e877ece79517ad795f7f4cf63bb3a7 (diff) | |
| download | perl-b77f7d40943072c6b8a82e9e0fbdcc2d346120ee.tar.gz | |
Re: odd (or not so odd?) segmentation fault in 5.8.0
Message-ID: <RtQa+gzkg2kF092yn@efn.org>
p4raw-id: //depot/perl@18889
Diffstat (limited to 't/op/tie.t')
| -rwxr-xr-x | t/op/tie.t | 9 |
1 files changed, 9 insertions, 0 deletions
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. |