diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-07-14 20:55:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-07-14 20:55:30 +0000 |
| commit | ef3e5ea91ec4f974a02ae36f5bcc9e91bcab852f (patch) | |
| tree | 5afdbe2673bff0daa51e96345a9c7c541aaaff79 /op.h | |
| parent | ab7ee80f77caf2fe052e7d3d8de31097ada2baae (diff) | |
| download | perl-ef3e5ea91ec4f974a02ae36f5bcc9e91bcab852f.tar.gz | |
Optimise foreach my $i (reverse ...)
foreach without a lexical iterator not yet optimised
p4raw-id: //depot/perl@23108
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -180,6 +180,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' */ |