Add a test for [perl #17753].

[p5sagit/p5-mst-13.2.git] / perly.h

#ifdef PERL_CORE
#define WORD 257
#define METHOD 258
#define FUNCMETH 259
#define THING 260
#define PMFUNC 261
#define PRIVATEREF 262
#define FUNC0SUB 263
#define UNIOPSUB 264
#define LSTOPSUB 265
#define LABEL 266
#define FORMAT 267
#define SUB 268
#define ANONSUB 269
#define PACKAGE 270
#define USE 271
#define WHILE 272
#define UNTIL 273
#define IF 274
#define UNLESS 275
#define ELSE 276
#define ELSIF 277
#define CONTINUE 278
#define FOR 279
#define LOOPEX 280
#define DOTDOT 281
#define FUNC0 282
#define FUNC1 283
#define FUNC 284
#define UNIOP 285
#define LSTOP 286
#define RELOP 287
#define EQOP 288
#define MULOP 289
#define ADDOP 290
#define DOLSHARP 291
#define DO 292
#define HASHBRACK 293
#define NOAMP 294
#define LOCAL 295
#define MY 296
#define MYSUB 297
#define COLONATTR 298
#define PREC_LOW 299
#define OROP 300
#define DOROP 301
#define ANDOP 302
#define NOTOP 303
#define ASSIGNOP 304
#define OROR 305
#define DORDOR 306
#define ANDAND 307
#define BITOROP 308
#define BITANDOP 309
#define SHIFTOP 310
#define MATCHOP 311
#define UMINUS 312
#define REFGEN 313
#define POWOP 314
#define PREINC 315
#define PREDEC 316
#define POSTINC 317
#define POSTDEC 318
#define ARROW 319
#endif /* PERL_CORE */

typedef union {
    I32	ival;
    char *pval;
    OP *opval;
    GV *gvval;
} YYSTYPE;