diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 07:59:22 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 07:59:22 +0000 |
commit | b7056d9c698177a62c525b2c6e1f5368fe56e6c5 (patch) | |
tree | 40c4d2fa42b05d3dac8e7ce0565d1006814cfd98 /t | |
parent | 1501d360ba47d9f9487869f06b91da936bb3c6e7 (diff) | |
download | perl-b7056d9c698177a62c525b2c6e1f5368fe56e6c5.tar.gz |
Fix for [perl #23287] segfault in untie.
(Well, at least no more coredump.)
p4raw-id: //depot/perl@20630
Diffstat (limited to 't')
-rwxr-xr-x | t/op/tie.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index a3b4be2891..d73cce1555 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -360,3 +360,10 @@ $s=~ s/\(0x\w+\)//g; print $s, "\n"; EXPECT SCALAR SCALAR SCALAR SCALAR +######## +# [perl #23287] segfault in untie +sub TIESCALAR { bless $_[1], $_[0] } +my $var; +tie $var, 'main', \$var; +untie $var; +EXPECT |