This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update release date in Module::CoreList
[perl5.git]
/
keywords.c
diff --git
a/keywords.c
b/keywords.c
index
23d550d
..
74af832
100644
(file)
--- a/
keywords.c
+++ b/
keywords.c
@@
-13,8
+13,6
@@
I32
Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
{
I32
Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
{
- dVAR;
-
PERL_ARGS_ASSERT_KEYWORD;
switch (len)
PERL_ARGS_ASSERT_KEYWORD;
switch (len)
@@
-490,19
+488,9
@@
Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
goto unknown;
}
goto unknown;
}
- case 4: /* 4
1
tokens of length 4 */
+ case 4: /* 4
0
tokens of length 4 */
switch (name[0])
{
switch (name[0])
{
- case 'C':
- if (name[1] == 'O' &&
- name[2] == 'R' &&
- name[3] == 'E')
- { /* CORE */
- return -KEY_CORE;
- }
-
- goto unknown;
-
case 'I':
if (name[1] == 'N' &&
name[2] == 'I' &&
case 'I':
if (name[1] == 'N' &&
name[2] == 'I' &&
@@
-3449,5
+3437,5
@@
unknown:
}
/* Generated from:
}
/* Generated from:
- *
e5a540774760ea54c761ef17ee4a153cc264e9a700b817d561e390730c457406
regen/keywords.pl
+ *
7e3d76a333c5f9b77d47dd7d423450356b63853a1c2313d3e805042caaa4bc2c
regen/keywords.pl
* ex: set ro: */
* ex: set ro: */