diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-02-17 12:39:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-02-17 12:39:17 +0000 |
| commit | 8b850bd54aa90bd3cc2546352bef5140216ffbb6 (patch) | |
| tree | 8870859d8b4d7eec735d443179da6fa32571ded9 /perl.h | |
| parent | 3feb66e7ea0f57a1105b8fea88e024b00c92a8a0 (diff) | |
| download | perl-8b850bd54aa90bd3cc2546352bef5140216ffbb6.tar.gz | |
Split the storage of the layers specificied by open.pm into one hint
for input, and one for output, as this better reflects how they are
used. The original "concatenate with \0" plan was really only a
compramise to avoid needing to increase every COP by 2 pointers.
p4raw-id: //depot/perl@30334
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4369,7 +4369,8 @@ enum { /* pass one of these to get_vtbl */ #define HINT_NEW_STRING 0x00008000 #define HINT_NEW_RE 0x00010000 #define HINT_LOCALIZE_HH 0x00020000 /* %^H needs to be copied */ -#define HINT_LEXICAL_IO 0x00040000 /* ${^OPEN} is set */ +#define HINT_LEXICAL_IO_IN 0x00040000 /* ${^OPEN} is set for input */ +#define HINT_LEXICAL_IO_OUT 0x00080000 /* ${^OPEN} is set for output */ #define HINT_RE_TAINT 0x00100000 /* re pragma */ #define HINT_RE_EVAL 0x00200000 /* re pragma */ |