diff options
| author | Robin Houston <robin@cpan.org> | 2005-12-17 20:44:31 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-19 16:26:15 +0000 |
| commit | 0d863452f5cac86322a90184dc68dbf446006ed7 (patch) | |
| tree | a6b225c0f732e2062a2c430a359c1c1db88fa36c /op.h | |
| parent | 4f5010f268a8de0d9ea78da367041150ef2777f4 (diff) | |
| download | perl-0d863452f5cac86322a90184dc68dbf446006ed7.tar.gz | |
latest switch/say/~~
Message-Id: <20051217204431.GB28940@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@26400
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -110,6 +110,9 @@ Deprecated. Use C<GIMME_V> instead. * (runtime property) */ /* On OP_AELEMFAST, indiciates pad var */ /* On OP_REQUIRE, was seen as CORE::require */ + /* On OP_ENTERWHEN, there's no condition */ + /* On OP_BREAK, an implicit break */ + /* On OP_SMARTMATCH, an implicit smartmatch */ /* old names; don't use in new code, but don't break them, either */ #define OPf_LIST OPf_WANT_LIST @@ -183,6 +186,7 @@ Deprecated. Use C<GIMME_V> instead. /* Private for OP_ENTERITER and OP_ITER */ #define OPpITER_REVERSED 4 /* for (reverse ...) */ +#define OPpITER_DEF 8 /* for $_ or for my $_ */ /* Private for OP_CONST */ #define OPpCONST_NOVER 2 /* no 6; */ @@ -224,7 +228,7 @@ Deprecated. Use C<GIMME_V> instead. #define OPpHUSH_VMSISH 64 /* hush DCL exit msg vmsish mode*/ #define OPpEXIT_VMSISH 128 /* exit(0) vs. exit(1) vmsish mode*/ -/* Private of OP_FTXXX */ +/* Private for OP_FTXXX */ #define OPpFT_ACCESS 2 /* use filetest 'access' */ #define OPpFT_STACKED 4 /* stacked filetest, as in "-f -x $f" */ #define OP_IS_FILETEST_ACCESS(op) \ @@ -238,6 +242,9 @@ Deprecated. Use C<GIMME_V> instead. /* Private for OP_(MAP|GREP)(WHILE|START) */ #define OPpGREP_LEX 2 /* iterate over lexical $_ */ +/* Private for OP_ENTEREVAL */ +#define OPpEVAL_HAS_HH 2 /* Does it have a copy of %^H */ + struct op { BASEOP }; |