diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 00:35:27 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 00:35:27 +0000 |
| commit | 7231175158f8ebe4d4c89fd774d89f1e9de28649 (patch) | |
| tree | e9c567a660a223412ed950e0091d88e611b75cf0 /regexp.h | |
| parent | 1116284222923a1670dbbe2205884d0616c81dfc (diff) | |
| download | perl-7231175158f8ebe4d4c89fd774d89f1e9de28649.tar.gz | |
patchlevel up to 5.004_70, various tweaks
* fix taint problems due to maintbranch regression
* PERL_OBJECT now builds again
* deal with C++ strong-typing problems in hv.c
* fix mismatch in "reserved word" diagnostic
p4raw-id: //depot/perl@1311
Diffstat (limited to 'regexp.h')
| -rw-r--r-- | regexp.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -90,9 +90,11 @@ typedef struct regexp { #define ROPT_TAINTED_SEEN 0x8000 #define RX_MATCH_TAINTED(prog) ((prog)->reganch & ROPT_TAINTED_SEEN) -#define RX_MATCH_TAINTED_SET(prog, t) ((t) \ - ? ((prog)->reganch |= ROPT_TAINTED_SEEN) \ - : ((prog)->reganch &= ~ROPT_TAINTED_SEEN)) +#define RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN) +#define RX_MATCH_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN) +#define RX_MATCH_TAINTED_set(prog, t) ((t) \ + ? RX_MATCH_TAINTED_on(prog) \ + : RX_MATCH_TAINTED_off(prog)) #define REXEC_COPY_STR 1 /* Need to copy the string. */ #define REXEC_CHECKED 2 /* check_substr already checked. */ |