summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-08-07 05:51:35 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-08-08 12:24:50 -0700
commitaeaef3491d1eee1a07d91d03608fa86baf9dde40 (patch)
treef4d4c6cac136fd55fb52303a61f21fdfa3484db2 /toke.c
parentf3f204dc630d5b7c057cde6dea93f281cb29251a (diff)
downloadperl-aeaef3491d1eee1a07d91d03608fa86baf9dde40.tar.gz
toke.c: Remove TOKENTYPE_GVVAL
It has been unused since it was added in bbf60fe6.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/toke.c b/toke.c
index ef41fefc18..7fdfa5108a 100644
--- a/toke.c
+++ b/toke.c
@@ -314,8 +314,7 @@ enum token_type {
TOKENTYPE_IVAL,
TOKENTYPE_OPNUM, /* pl_yylval.ival contains an opcode number */
TOKENTYPE_PVAL,
- TOKENTYPE_OPVAL,
- TOKENTYPE_GVVAL
+ TOKENTYPE_OPVAL
};
static struct debug_tokens {
@@ -431,7 +430,6 @@ S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp)
Perl_sv_catpvf(aTHX_ report, "?? %"IVdf, (IV)rv);
switch (type) {
case TOKENTYPE_NONE:
- case TOKENTYPE_GVVAL: /* doesn't appear to be used */
break;
case TOKENTYPE_IVAL:
Perl_sv_catpvf(aTHX_ report, "(ival=%"IVdf")", (IV)lvalp->ival);