Skip to content
This repository was archived by the owner on Jun 1, 2023. It is now read-only.

Commit 20ac70b

Browse files
author
Reini Urban
committed
strEQc: one more fetchmethod fix for SUPER
match substring, not whole string. There are :: coming afterwards. Not a single core tests caught that, only DBD::SQLite
1 parent 447d435 commit 20ac70b

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

gv.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1036,7 +1036,7 @@ GV *
10361036
Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN len, U32 flags)
10371037
{
10381038
const char *nend;
1039-
const char * const name_end= name + len;
1039+
const char * const name_end = name + len;
10401040
const char *nsplit = NULL;
10411041
GV* gv;
10421042
HV* ostash = stash;
@@ -1075,7 +1075,7 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
10751075
origname, HvENAME_get(stash), name) );
10761076
}
10771077
else if ((nsplit - origname) >= 7
1078-
&& strEQc(nsplit - 7, "::SUPER")) {
1078+
&& memEQc(nsplit - 7, "::SUPER")) {
10791079
/* don't autovifify if ->NoSuchStash::SUPER::method */
10801080
stash = gv_stashpvn(origname, nsplit - origname - 7, is_utf8);
10811081
if (stash) flags |= GV_SUPER;

0 commit comments

Comments
 (0)