From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 23 Feb 2006 17:45:55 +0000 (+0000)
Subject: In XS_attributes__guess_stash, attempting to call Gv* on a PVMG is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32777db77ef3ebe0f903c9762d2dd94575f9b4a6;p=p5sagit%2Fp5-mst-13.2.git

In XS_attributes__guess_stash, attempting to call Gv* on a PVMG is
bad and wrong.

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

diff --git a/xsutils.c b/xsutils.c
index 59a2496..94d7652 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -278,10 +278,6 @@ usage:
 	    else if (/* !CvANON(sv) && */ CvSTASH(sv))
 		stash = CvSTASH(sv);
 	    break;
-	case SVt_PVMG:
-	    if (!(SvFAKE(sv) && SvTIED_mg(sv, PERL_MAGIC_glob)))
-		break;
-	    /*FALLTHROUGH*/
 	case SVt_PVGV:
 	    if (GvGP(sv) && GvESTASH((GV*)sv))
 		stash = GvESTASH((GV*)sv);