diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2005-01-15 21:30:44 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2005-01-15 21:30:44 +0000 |
| commit | c2276cd9a1ad823a3a292bd9ea5d0475bb983737 (patch) | |
| tree | d3828d43e8271c783c6683783ad627b4232d3672 /gnu/usr.bin/perl/op.h | |
| parent | c30a36e0c140753f3f773b400f5dbc777b344b8a (diff) | |
sync in-tree perl with 5.8.6
Diffstat (limited to 'gnu/usr.bin/perl/op.h')
| -rw-r--r-- | gnu/usr.bin/perl/op.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/op.h b/gnu/usr.bin/perl/op.h index c917c499039..5a1fed99503 100644 --- a/gnu/usr.bin/perl/op.h +++ b/gnu/usr.bin/perl/op.h @@ -171,6 +171,9 @@ Deprecated. Use C<GIMME_V> instead. /* (lower bits may carry MAXARG) */ #define OPpTARGET_MY 16 /* Target is PADMY. */ +/* Private for OP_ENTERITER and OP_ITER */ +#define OPpITER_REVERSED 4 /* for (reverse ...) */ + /* Private for OP_CONST */ #define OPpCONST_SHORTCIRCUIT 4 /* eg the constant 5 in (5 || foo) */ #define OPpCONST_STRICT 8 /* bearword subject to strict 'subs' */ @@ -194,8 +197,9 @@ Deprecated. Use C<GIMME_V> instead. /* Private for OP_SORT */ #define OPpSORT_NUMERIC 1 /* Optimized away { $a <=> $b } */ #define OPpSORT_INTEGER 2 /* Ditto while under "use integer" */ -#define OPpSORT_REVERSE 4 /* Descending sort */ +#define OPpSORT_REVERSE 4 /* Reversed sort */ #define OPpSORT_INPLACE 8 /* sort in-place; eg @a = sort @a */ +#define OPpSORT_DESCEND 16 /* Descending sort */ /* Private for OP_THREADSV */ #define OPpDONE_SVREF 64 /* Been through newSVREF once */ |