X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fperly_h.vms;h=ff89cfffbf7e1dd7768a1652b2d5ec61f62ead20;hb=6e5a998b1cc5eddc2fb262c2e2e7f989bfb76f23;hp=17a3769ef4db3ad490debfd01ba5f8caa1f1e6f0;hpb=4633a7c4bad06b471d9310620b7fe8ddd158cccd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/perly_h.vms b/vms/perly_h.vms
index 17a3769..ff89cff 100644
--- a/vms/perly_h.vms
+++ b/vms/perly_h.vms
@@ -1,60 +1,68 @@
+/* Postprocessed by vms_yfix.pl 1.11 to add VMS declarations of globals */
+#ifdef PERL_CORE
 #define WORD 257
 #define METHOD 258
 #define FUNCMETH 259
 #define THING 260
 #define PMFUNC 261
 #define PRIVATEREF 262
-#define LABEL 263
-#define FORMAT 264
-#define SUB 265
-#define ANONSUB 266
-#define PACKAGE 267
-#define USE 268
-#define WHILE 269
-#define UNTIL 270
-#define IF 271
-#define UNLESS 272
-#define ELSE 273
-#define ELSIF 274
-#define CONTINUE 275
-#define FOR 276
-#define LOOPEX 277
-#define DOTDOT 278
-#define FUNC0 279
-#define FUNC1 280
-#define FUNC 281
-#define FUNC0SUB 282
-#define RELOP 283
-#define EQOP 284
-#define MULOP 285
-#define ADDOP 286
-#define DOLSHARP 287
-#define DO 288
-#define LOCAL 289
-#define HASHBRACK 290
-#define NOAMP 291
-#define OROP 292
-#define ANDOP 293
-#define NOTOP 294
-#define LSTOP 295
-#define LSTOPSUB 296
-#define ASSIGNOP 297
-#define OROR 298
-#define ANDAND 299
-#define BITOROP 300
-#define BITANDOP 301
-#define UNIOP 302
-#define UNIOPSUB 303
-#define SHIFTOP 304
-#define MATCHOP 305
-#define UMINUS 306
-#define REFGEN 307
-#define POWOP 308
-#define PREINC 309
-#define PREDEC 310
-#define POSTINC 311
-#define POSTDEC 312
-#define ARROW 313
+#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 ANDOP 301
+#define NOTOP 302
+#define ASSIGNOP 303
+#define OROR 304
+#define ANDAND 305
+#define BITOROP 306
+#define BITANDOP 307
+#define SHIFTOP 308
+#define MATCHOP 309
+#define UMINUS 310
+#define REFGEN 311
+#define POWOP 312
+#define PREINC 313
+#define PREDEC 314
+#define POSTINC 315
+#define POSTDEC 316
+#define ARROW 317
+#endif /* PERL_CORE */
+
 typedef union {
     I32	ival;
     char *pval;