diff options
| author | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
| commit | 760ac839baf413929cd31cc32ffd6dba6b781a81 (patch) | |
| tree | 010ae8135426972c27b065782284341c839dc2a0 /gv.c | |
| parent | 43cc1d52f97c5f21f3207f045444707e7be33927 (diff) | |
| download | perl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz | |
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -241,9 +241,10 @@ char* name; /* Failed obvious case - look for SUPER as last element of stash's name */ char *packname = HvNAME(stash); STRLEN len = strlen(packname); - if ((len -= 7) >= 0 && strEQ(packname+len,"::SUPER")) { + if (len >= 7 && strEQ(packname+len-7,"::SUPER")) { /* Now look for @.*::SUPER::ISA */ GV** gvp = (GV**)hv_fetch(stash,"ISA",3,FALSE); + len -= 7; if (!gvp || (gv = *gvp) == (GV*)&sv_undef || !GvAV(gv)) { /* No @ISA in package ending in ::SUPER - drop suffix and see if there is an @ISA there |