(vaguely connected with) [perl #21875] Hash ref transformed as a list

Message-ID: <20030407204317.GA8796@fdgroup.com>

The new XTERMORDORDOR lexer expectation must also be named
in debugging perls, to be used in the output of -DT.

p4raw-id: //depot/perl@19169

diff --git a/perl.h b/perl.h
index 89d1494..fa802ac 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3182,6 +3182,7 @@ typedef enum {
     XATTRTERM,
     XTERMBLOCK,
     XTERMORDORDOR /* evil hack */
+    /* update exp_name[] in toke.c if adding to this enum */
 } expectation;
 
 enum {         /* pass one of these to get_vtbl */

diff --git a/toke.c b/toke.c
index 0009d62..97085b4 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2141,7 +2141,7 @@ S_find_in_my_stash(pTHX_ char *pkgname, I32 len)
 #ifdef DEBUGGING
     static char* exp_name[] =
        { "OPERATOR", "TERM", "REF", "STATE", "BLOCK", "ATTRBLOCK",
-         "ATTRTERM", "TERMBLOCK"
+         "ATTRTERM", "TERMBLOCK", "TERMORDORDOR"
        };
 #endif