diff options
author | Nicolas R <atoomic@cpan.org> | 2016-10-31 11:53:17 -0600 |
---|---|---|
committer | Nicolas R <atoomic@cpan.org> | 2017-11-02 17:32:40 -0500 |
commit | e7e69c85c7e8e0cb75b831e606ad4f26f18b11ff (patch) | |
tree | 9e95dfa3ed0610f86f69de462e61d3ab6b24a30c /pp_sys.c | |
parent | a155eb055a920e456f1b3a516de544bdf104322e (diff) | |
download | perl-e7e69c85c7e8e0cb75b831e606ad4f26f18b11ff.tar.gz |
Avoid a segfault when untying an object
Check if the tied object has a stash set
before calling UNTIE method.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1017,7 +1017,7 @@ PP(pp_untie) if ((mg = SvTIED_mg(sv, how))) { SV * const obj = SvRV(SvTIED_obj(sv, mg)); - if (obj) { + if (obj && SvSTASH(obj)) { GV * const gv = gv_fetchmethod_autoload(SvSTASH(obj), "UNTIE", FALSE); CV *cv; if (gv && isGV(gv) && (cv = GvCV(gv))) { |