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 (file)
--- 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':