diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 01:51:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 01:51:47 +0000 |
| commit | b3eb6a9ba72c92b7decf330d8d63b32ba5499629 (patch) | |
| tree | b3af31372ba9c68faf41895b58e0baa1f9372d16 /toke.c | |
| parent | 85b81015bdcfa6e7a9ccddddb0d3face7465f666 (diff) | |
| download | perl-b3eb6a9ba72c92b7decf330d8d63b32ba5499629.tar.gz | |
merge changes#1210,1211,1270 from maintbranch
p4raw-link: @1270 on //depot/maint-5.004/perl: 413603941653f55130af336b8e990052b26673a6
p4raw-link: @1211 on //depot/maint-5.004/perl: 247620c138019426962998dd7edc0157874220f0
p4raw-link: @1210 on //depot/maint-5.004/perl: 4522f71f5c16bf8892b1952004accec53aab868e
p4raw-id: //depot/perl@1277
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -4941,8 +4941,6 @@ void pmflag(U16 *pmfl, int ch) *pmfl |= PMf_MULTILINE; else if (ch == 's') *pmfl |= PMf_SINGLELINE; - else if (ch == 't') - *pmfl |= PMf_TAINTMEM; else if (ch == 'x') *pmfl |= PMf_EXTENDED; } @@ -4964,7 +4962,7 @@ scan_pat(char *start) pm = (PMOP*)newPMOP(OP_MATCH, 0); if (multi_open == '?') pm->op_pmflags |= PMf_ONCE; - while (*s && strchr("iogcmstx", *s)) + while (*s && strchr("iogcmsx", *s)) pmflag(&pm->op_pmflags,*s++); pm->op_pmpermflags = pm->op_pmflags; @@ -5014,7 +5012,7 @@ scan_subst(char *start) s++; es++; } - else if (strchr("iogcmstx", *s)) + else if (strchr("iogcmsx", *s)) pmflag(&pm->op_pmflags,*s++); else break; |