summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorAaron Crane <arc@cpan.org>2019-10-23 22:00:47 +0100
committerAaron Crane <arc@cpan.org>2019-11-04 10:32:29 +0000
commitd333554320d1a704b62423d391bf751d61ee3e32 (patch)
tree1374fe03be1bd060fbd3fc57614520d999c0a055 /toke.c
parent6e93a30736704c0d33d0b91c818b0b6281615c73 (diff)
downloadperl-d333554320d1a704b62423d391bf751d61ee3e32.tar.gz
toke.c: remove some spurious orig_keyword uses
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/toke.c b/toke.c
index a56f1228b6..cf6c988352 100644
--- a/toke.c
+++ b/toke.c
@@ -8410,8 +8410,8 @@ yyl_keylookup(pTHX_ char *s, GV *gv, bool bof, bool saw_infix_sigil)
/* x::* is just a word, unless x is "CORE" */
if (!anydelim && *s == ':' && s[1] == ':') {
if (memEQs(PL_tokenbuf, len, "CORE"))
- return yyl_key_core(aTHX_ s, len, tmp, orig_keyword, c, bof, saw_infix_sigil);
- return yyl_just_a_word(aTHX_ s, len, 0, orig_keyword, c, saw_infix_sigil);
+ return yyl_key_core(aTHX_ s, len, tmp, 0, c, bof, saw_infix_sigil);
+ return yyl_just_a_word(aTHX_ s, len, 0, 0, c, saw_infix_sigil);
}
d = s;
@@ -8484,8 +8484,7 @@ yyl_keylookup(pTHX_ char *s, GV *gv, bool bof, bool saw_infix_sigil)
if (!c.gv) {
sv_free(c.sv);
c.sv = NULL;
- return yyl_just_a_word(aTHX_ s, len, tmp, orig_keyword,
- c, saw_infix_sigil);
+ return yyl_just_a_word(aTHX_ s, len, tmp, 0, c, saw_infix_sigil);
}
}
else {
@@ -8494,8 +8493,7 @@ yyl_keylookup(pTHX_ char *s, GV *gv, bool bof, bool saw_infix_sigil)
c.cv = find_lexical_cv(c.off);
}
c.lex = TRUE;
- return yyl_just_a_word(aTHX_ s, len, tmp, orig_keyword,
- c, saw_infix_sigil);
+ return yyl_just_a_word(aTHX_ s, len, tmp, 0, c, saw_infix_sigil);
}
c.off = 0;
}