This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Add missing debug tokens
authorFather Chrysostomos <sprout@cpan.org>
Tue, 7 Aug 2012 06:20:14 +0000 (23:20 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 8 Aug 2012 19:24:50 +0000 (12:24 -0700)
toke.c

diff --git a/toke.c b/toke.c
index 596f931..ef41fef 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -369,6 +369,7 @@ static struct debug_tokens {
     { OROP,            TOKENTYPE_IVAL,         "OROP" },
     { OROR,            TOKENTYPE_NONE,         "OROR" },
     { PACKAGE,         TOKENTYPE_NONE,         "PACKAGE" },
+    { PEG,             TOKENTYPE_NONE,         "PEG" },
     { PLUGEXPR,                TOKENTYPE_OPVAL,        "PLUGEXPR" },
     { PLUGSTMT,                TOKENTYPE_OPVAL,        "PLUGSTMT" },
     { PMFUNC,          TOKENTYPE_OPVAL,        "PMFUNC" },
@@ -378,8 +379,10 @@ static struct debug_tokens {
     { PREDEC,          TOKENTYPE_NONE,         "PREDEC" },
     { PREINC,          TOKENTYPE_NONE,         "PREINC" },
     { PRIVATEREF,      TOKENTYPE_OPVAL,        "PRIVATEREF" },
+    { QWLIST,          TOKENTYPE_OPVAL,        "QWLIST" },
     { REFGEN,          TOKENTYPE_NONE,         "REFGEN" },
     { RELOP,           TOKENTYPE_OPNUM,        "RELOP" },
+    { REQUIRE,         TOKENTYPE_NONE,         "REQUIRE" },
     { SHIFTOP,         TOKENTYPE_OPNUM,        "SHIFTOP" },
     { SUB,             TOKENTYPE_NONE,         "SUB" },
     { THING,           TOKENTYPE_OPVAL,        "THING" },