From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Aug 2003 18:44:27 +0000 (+0000)
Subject: A better patch from Yitzchak Scott-Thoennes for [perl #23287].
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65eba18fa4db1d6a117170ee75351b16dc792fca;p=p5sagit%2Fp5-mst-13.2.git

A better patch from Yitzchak Scott-Thoennes for [perl #23287].

p4raw-id: //depot/perl@20660
---

diff --git a/pp_sys.c b/pp_sys.c
index 86241fa..d8dc103 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -860,8 +860,8 @@ PP(pp_untie)
     if (SvTYPE(sv) == SVt_PVGV && !(sv = (SV *)GvIOp(sv)))
 	RETPUSHYES;
 
-    if ((mg = SvTIED_mg(sv, how)) && mg->mg_obj) {
-	SV *obj = SvRV(mg->mg_obj);
+    if ((mg = SvTIED_mg(sv, how))) {
+	SV *obj = SvRV(SvTIED_obj(sv, mg));
 	GV *gv;
 	CV *cv = NULL;
         if (obj) {