From: Gerard Goossen <gerard@tty.nl>
Date: Wed, 9 Apr 2008 12:12:44 +0000 (+0200)
Subject: is_gv_magical correctly check "ISA"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2df708187f7170c3344b7542e7aa96faa0b2fd8;p=p5sagit%2Fp5-mst-13.2.git

is_gv_magical correctly check "ISA"
Message-ID: <20080409101244.GA11209@ostwald>

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

diff --git a/gv.c b/gv.c
index 8b5d660..23a694c 100644
--- a/gv.c
+++ b/gv.c
@@ -2220,7 +2220,7 @@ Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags)
 	const char * const name1 = name + 1;
 	switch (*name) {
 	case 'I':
-	    if (len == 3 && name1[1] == 'S' && name[2] == 'A')
+	    if (len == 3 && name[1] == 'S' && name[2] == 'A')
 		goto yes;
 	    break;
 	case 'O':