X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.h;h=38bad2af9bfb5e028621553734675c47d673d491;hb=ac9dac7f0e1dffa602850506b980a255334a4f40;hp=7c6ec9979b751041dc61560e72e48189172aae9b;hpb=0d863452f5cac86322a90184dc68dbf446006ed7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly.h b/perly.h
index 7c6ec99..38bad2a 100644
--- a/perly.h
+++ b/perly.h
@@ -96,7 +96,8 @@
      POSTINC = 321,
      PREDEC = 322,
      PREINC = 323,
-     ARROW = 324
+     ARROW = 324,
+     PEG = 325
    };
 #endif
 /* Tokens.  */
@@ -167,21 +168,23 @@
 #define PREDEC 322
 #define PREINC 323
 #define ARROW 324
+#define PEG 325
 
 
 
 
 #endif /* PERL_CORE */
 #if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
-#line 30 "perly.y"
 typedef union YYSTYPE {
     I32	ival;
     char *pval;
+#ifdef PERL_MAD
+    TOKEN* tkval;
+#endif
     OP *opval;
     GV *gvval;
 } YYSTYPE;
 /* Line 1447 of yacc.c.  */
-#line 183 "perly.h"
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 # define YYSTYPE_IS_DECLARED 1
 # define YYSTYPE_IS_TRIVIAL 1