+#ifdef PERL_CORE
#define WORD 257
#define METHOD 258
-#define THING 259
-#define PMFUNC 260
-#define PRIVATEREF 261
-#define LABEL 262
-#define FORMAT 263
-#define SUB 264
-#define PACKAGE 265
-#define WHILE 266
-#define UNTIL 267
-#define IF 268
-#define UNLESS 269
-#define ELSE 270
-#define ELSIF 271
-#define CONTINUE 272
-#define FOR 273
-#define LOOPEX 274
-#define DOTDOT 275
-#define FUNC0 276
-#define FUNC1 277
-#define FUNC 278
-#define RELOP 279
-#define EQOP 280
-#define MULOP 281
-#define ADDOP 282
-#define DOLSHARP 283
-#define DO 284
-#define LOCAL 285
-#define DELETE 286
-#define HASHBRACK 287
-#define NOAMP 288
-#define OROP 289
-#define ANDOP 290
-#define LSTOP 291
-#define OROR 292
-#define ANDAND 293
-#define BITOROP 294
-#define BITANDOP 295
-#define UNIOP 296
-#define SHIFTOP 297
-#define MATCHOP 298
-#define UMINUS 299
-#define REFGEN 300
-#define POWOP 301
-#define PREINC 302
-#define PREDEC 303
-#define POSTINC 304
-#define POSTDEC 305
-#define ARROW 306
+#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 PREC_LOW 297
+#define OROP 298
+#define ANDOP 299
+#define NOTOP 300
+#define ASSIGNOP 301
+#define OROR 302
+#define ANDAND 303
+#define BITOROP 304
+#define BITANDOP 305
+#define SHIFTOP 306
+#define MATCHOP 307
+#define UMINUS 308
+#define REFGEN 309
+#define POWOP 310
+#define PREINC 311
+#define PREDEC 312
+#define POSTINC 313
+#define POSTDEC 314
+#define ARROW 315
+#endif /* PERL_CORE */
+
typedef union {
I32 ival;
char *pval;
OP *opval;
GV *gvval;
} YYSTYPE;
-extern YYSTYPE yylval;
-extern YYSTYPE yylval;