From e7e69c85c7e8e0cb75b831e606ad4f26f18b11ff Mon Sep 17 00:00:00 2001 From: Nicolas R Date: Mon, 31 Oct 2016 11:53:17 -0600 Subject: [PATCH] Avoid a segfault when untying an object MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Check if the tied object has a stash set before calling UNTIE method. Signed-off-by: Petr Písař --- pp_sys.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pp_sys.c b/pp_sys.c index 672e7de08e..6d4dd86b7f 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -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))) { -- 2.13.6