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 /pp_hot.c | |
| 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 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -917,7 +917,9 @@ play_it_again: /*NOTREACHED*/ gotcha: - RX_MATCH_TAINTED_SET(rx, rxtainted); + if (rxtainted) + RX_MATCH_TAINTED_on(rx); + TAINT_IF(RX_MATCH_TAINTED(rx)); if (gimme == G_ARRAY) { I32 iters, i, len; @@ -970,7 +972,9 @@ play_it_again: } yup: /* Confirmed by check_substr */ - RX_MATCH_TAINTED_SET(rx, rxtainted); + if (rxtainted) + RX_MATCH_TAINTED_on(rx); + TAINT_IF(RX_MATCH_TAINTED(rx)); ++BmUSEFUL(rx->check_substr); curpm = pm; if (pm->op_pmflags & PMf_ONCE) |