diff options
| author | Gerard Goossen <gerard@tty.nl> | 2008-04-09 14:12:44 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-11 10:48:44 +0000 |
| commit | f2df708187f7170c3344b7542e7aa96faa0b2fd8 (patch) | |
| tree | 50e237432ecea03be636698c5a7b99621d097123 /gv.c | |
| parent | 3462340b1132a22bcdcd97c35ea3fc976cd212b7 (diff) | |
| download | perl-f2df708187f7170c3344b7542e7aa96faa0b2fd8.tar.gz | |
is_gv_magical correctly check "ISA"
Message-ID: <20080409101244.GA11209@ostwald>
p4raw-id: //depot/perl@33665
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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': |