From f2df708187f7170c3344b7542e7aa96faa0b2fd8 Mon Sep 17 00:00:00 2001
From: Gerard Goossen <gerard@tty.nl>
Date: Wed, 9 Apr 2008 14:12:44 +0200
Subject: [PATCH] is_gv_magical correctly check "ISA" Message-ID:
 <20080409101244.GA11209@ostwald>

p4raw-id: //depot/perl@33665
---
 gv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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':
-- 
2.7.4