diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 01:49:20 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 01:49:20 +0000 |
| commit | 7a52d87a7fbc7848e6b3e9e96db52d4070212cca (patch) | |
| tree | 3821fdd60a6fdec55d2a219fb6d5cff9686bed03 /op.h | |
| parent | a9ef352ac26829339bf17aa20568b3bde2fb1dd0 (diff) | |
| download | perl-7a52d87a7fbc7848e6b3e9e96db52d4070212cca.tar.gz | |
redo change#2061 and parts of change#1169 with code in the
parser; PL_last_proto hackery gone, strict 'subs' in now
implemented in the optimizer where specifying the exceptional
cases is much more robust; '*' (bareword) prototype now works
reliably when used in second and subsequent arguments
p4raw-link: @2061 on //depot/perl: bf8481137c02593eb36f8d0e234a2ec41a1c92e4
p4raw-link: @1169 on //depot/perl: 2a841d1398ee9bbf30a942905192cc2591b3e92a
p4raw-id: //depot/perl@3447
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -123,12 +123,14 @@ typedef U32 PADOFFSET; #define OPpDEREF_SV (32|64) /* Want ref to SV. */ /* OP_ENTERSUB only */ #define OPpENTERSUB_DB 16 /* Debug subroutine. */ + /* OP_RV2CV only */ #define OPpENTERSUB_AMPER 8 /* Used & form to call. */ /* OP_?ELEM only */ #define OPpLVAL_DEFER 16 /* Defer creation of array/hash elem */ /* for OP_RV2?V, lower bits carry hints */ /* Private for OP_CONST */ +#define OPpCONST_STRICT 8 /* bearword subject to strict 'subs' */ #define OPpCONST_ENTERED 16 /* Has been entered as symbol. */ #define OPpCONST_ARYBASE 32 /* Was a $[ translated to constant. */ #define OPpCONST_BARE 64 /* Was a bare word (filehandle?). */ |