|
 |
b8876f |
From e2cace1e9e89525afbca257742ddb36630b7fbc3 Mon Sep 17 00:00:00 2001
|
|
|
b8876f |
From: Yves Orton <demerphq@gmail.com>
|
|
|
b8876f |
Date: Tue, 13 Sep 2016 23:10:48 +0200
|
|
|
b8876f |
Subject: [PATCH 3/5] clean up gv_fetchmethod_pvn_flags: rename nsplit to
|
|
|
b8876f |
last_separator
|
|
|
b8876f |
MIME-Version: 1.0
|
|
|
b8876f |
Content-Type: text/plain; charset=UTF-8
|
|
|
b8876f |
Content-Transfer-Encoding: 8bit
|
|
|
b8876f |
|
|
|
b8876f |
nsplit if set points at the first char of the last separator
|
|
|
b8876f |
in name, so rename it so it is more comprehensible what it means.
|
|
|
b8876f |
|
|
|
b8876f |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
b8876f |
---
|
|
|
b8876f |
gv.c | 24 ++++++++++++------------
|
|
|
b8876f |
1 file changed, 12 insertions(+), 12 deletions(-)
|
|
|
b8876f |
|
|
|
b8876f |
diff --git a/gv.c b/gv.c
|
|
|
b8876f |
index fe38d44..07709a0 100644
|
|
|
b8876f |
--- a/gv.c
|
|
|
b8876f |
+++ b/gv.c
|
|
|
b8876f |
@@ -1011,7 +1011,7 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
|
|
|
b8876f |
const char * const origname = name;
|
|
|
b8876f |
const char * const name_end = name + len;
|
|
|
b8876f |
const char *nend;
|
|
|
b8876f |
- const char *nsplit = NULL;
|
|
|
b8876f |
+ const char *last_separator = NULL;
|
|
|
b8876f |
GV* gv;
|
|
|
b8876f |
HV* ostash = stash;
|
|
|
b8876f |
SV *const error_report = MUTABLE_SV(stash);
|
|
|
b8876f |
@@ -1024,38 +1024,38 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
|
|
|
b8876f |
if (SvTYPE(stash) < SVt_PVHV)
|
|
|
b8876f |
stash = NULL;
|
|
|
b8876f |
else {
|
|
|
b8876f |
- /* The only way stash can become NULL later on is if nsplit is set,
|
|
|
b8876f |
+ /* The only way stash can become NULL later on is if last_separator is set,
|
|
|
b8876f |
which in turn means that there is no need for a SVt_PVHV case
|
|
|
b8876f |
the error reporting code. */
|
|
|
b8876f |
}
|
|
|
b8876f |
|
|
|
b8876f |
for (nend = name; *nend || nend != name_end; nend++) {
|
|
|
b8876f |
if (*nend == '\'') {
|
|
|
b8876f |
- nsplit = nend;
|
|
|
b8876f |
+ last_separator = nend;
|
|
|
b8876f |
name = nend + 1;
|
|
|
b8876f |
}
|
|
|
b8876f |
else if (*nend == ':' && *(nend + 1) == ':') {
|
|
|
b8876f |
- nsplit = nend++;
|
|
|
b8876f |
+ last_separator = nend++;
|
|
|
b8876f |
name = nend + 1;
|
|
|
b8876f |
}
|
|
|
b8876f |
}
|
|
|
b8876f |
- if (nsplit) {
|
|
|
b8876f |
- if ((nsplit - origname) == 5 && memEQ(origname, "SUPER", 5)) {
|
|
|
b8876f |
+ if (last_separator) {
|
|
|
b8876f |
+ if ((last_separator - origname) == 5 && memEQ(origname, "SUPER", 5)) {
|
|
|
b8876f |
/* ->SUPER::method should really be looked up in original stash */
|
|
|
b8876f |
stash = CopSTASH(PL_curcop);
|
|
|
b8876f |
flags |= GV_SUPER;
|
|
|
b8876f |
DEBUG_o( Perl_deb(aTHX_ "Treating %s as %s::%s\n",
|
|
|
b8876f |
origname, HvENAME_get(stash), name) );
|
|
|
b8876f |
}
|
|
|
b8876f |
- else if ((nsplit - origname) >= 7 &&
|
|
|
b8876f |
- strnEQ(nsplit - 7, "::SUPER", 7)) {
|
|
|
b8876f |
+ else if ((last_separator - origname) >= 7 &&
|
|
|
b8876f |
+ strnEQ(last_separator - 7, "::SUPER", 7)) {
|
|
|
b8876f |
/* don't autovifify if ->NoSuchStash::SUPER::method */
|
|
|
b8876f |
- stash = gv_stashpvn(origname, nsplit - origname - 7, is_utf8);
|
|
|
b8876f |
+ stash = gv_stashpvn(origname, last_separator - origname - 7, is_utf8);
|
|
|
b8876f |
if (stash) flags |= GV_SUPER;
|
|
|
b8876f |
}
|
|
|
b8876f |
else {
|
|
|
b8876f |
/* don't autovifify if ->NoSuchStash::method */
|
|
|
b8876f |
- stash = gv_stashpvn(origname, nsplit - origname, is_utf8);
|
|
|
b8876f |
+ stash = gv_stashpvn(origname, last_separator - origname, is_utf8);
|
|
|
b8876f |
}
|
|
|
b8876f |
ostash = stash;
|
|
|
b8876f |
}
|
|
|
b8876f |
@@ -1098,8 +1098,8 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
|
|
|
b8876f |
else {
|
|
|
b8876f |
SV* packnamesv;
|
|
|
b8876f |
|
|
|
b8876f |
- if (nsplit) {
|
|
|
b8876f |
- packnamesv = newSVpvn_flags(origname, nsplit - origname,
|
|
|
b8876f |
+ if (last_separator) {
|
|
|
b8876f |
+ packnamesv = newSVpvn_flags(origname, last_separator - origname,
|
|
|
b8876f |
SVs_TEMP | is_utf8);
|
|
|
b8876f |
} else {
|
|
|
b8876f |
packnamesv = error_report;
|
|
|
b8876f |
--
|
|
|
b8876f |
2.7.4
|
|
|
b8876f |
|