X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d6376244c2261025775e8b11a6a64d7c9e0d1612..59f00321bbc2d04656a65e0e9ccbbd93a8708e71:/opnames.h?ds=sidebyside diff --git a/opnames.h b/opnames.h index 437c85d..6c90a21 100644 --- a/opnames.h +++ b/opnames.h @@ -1,7 +1,7 @@ /* * opnames.h * - * Copyright (c) 1997-2002, Larry Wall + * Copyright (C) 1999, 2000, 2001, 2002, 2003, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -364,11 +364,13 @@ typedef enum opcode { OP_THREADSV, /* 348 */ OP_SETSTATE, /* 349 */ OP_METHOD_NAMED,/* 350 */ - OP_CUSTOM, /* 351 */ + OP_DOR, /* 351 */ + OP_DORASSIGN, /* 352 */ + OP_CUSTOM, /* 353 */ OP_max } opcode; -#define MAXO 352 +#define MAXO 354 #define OP_phoney_INPUT_ONLY -1 #define OP_phoney_OUTPUT_ONLY -2