(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

2 files changed, 2 insertions, 1 deletions

diff --git a/perl.h b/perl.h
index 89d1494fbf..fa802ac345 100644
--- 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 0009d62e6e..97085b48da 100644
--- 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