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 /pp_sys.c | |
| 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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -860,7 +860,7 @@ PP(pp_untie) if (SvTYPE(sv) == SVt_PVGV && !(sv = (SV *)GvIOp(sv))) RETPUSHYES; - if ((mg = SvTIED_mg(sv, how))) { + if ((mg = SvTIED_mg(sv, how)) && mg->mg_obj) { SV *obj = SvRV(mg->mg_obj); GV *gv; CV *cv = NULL; |