From 760ac839baf413929cd31cc32ffd6dba6b781a81 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Sat, 10 Aug 1996 15:24:58 +0000 Subject: perl 5.003_02: [no incremental changelog available] --- gv.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gv.c') diff --git a/gv.c b/gv.c index c136fc5ed4..cb38bad8ab 100644 --- a/gv.c +++ b/gv.c @@ -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 -- cgit v1.2.1