From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 7 Apr 2003 21:43:17 +0000 (+0100)
Subject: (vaguely connected with) [perl #21875] Hash ref transformed as a list
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27308ded152a902d86f6f5763883d26b257e257a;p=p5sagit%2Fp5-mst-13.2.git

(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
--- 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
--- 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