This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement "my $_".
[perl5.git]
/
opnames.h
diff --git
a/opnames.h
b/opnames.h
index
437c85d
..
6c90a21
100644
(file)
--- a/
opnames.h
+++ b/
opnames.h
@@
-1,7
+1,7
@@
/*
* opnames.h
*
/*
* 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.
*
* 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_THREADSV, /* 348 */
OP_SETSTATE, /* 349 */
OP_METHOD_NAMED,/* 350 */
- OP_CUSTOM, /* 351 */
+ OP_DOR, /* 351 */
+ OP_DORASSIGN, /* 352 */
+ OP_CUSTOM, /* 353 */
OP_max
} opcode;
OP_max
} opcode;
-#define MAXO 35
2
+#define MAXO 35
4
#define OP_phoney_INPUT_ONLY -1
#define OP_phoney_OUTPUT_ONLY -2
#define OP_phoney_INPUT_ONLY -1
#define OP_phoney_OUTPUT_ONLY -2