| 3503 |
for (c = 0; c < 32; c++) classbits[c] |= ~cbits[c+cbit_word]; |
for (c = 0; c < 32; c++) classbits[c] |= ~cbits[c+cbit_word]; |
| 3504 |
continue; |
continue; |
| 3505 |
|
|
| 3506 |
|
/* Perl 5.004 onwards omits VT from \s, but we must preserve it |
| 3507 |
|
if it was previously set by something earlier in the character |
| 3508 |
|
class. */ |
| 3509 |
|
|
| 3510 |
case ESC_s: |
case ESC_s: |
| 3511 |
for (c = 0; c < 32; c++) classbits[c] |= cbits[c+cbit_space]; |
classbits[0] |= cbits[cbit_space]; |
| 3512 |
classbits[1] &= ~0x08; /* Perl 5.004 onwards omits VT from \s */ |
classbits[1] |= cbits[cbit_space+1] & ~0x08; |
| 3513 |
|
for (c = 2; c < 32; c++) classbits[c] |= cbits[c+cbit_space]; |
| 3514 |
continue; |
continue; |
| 3515 |
|
|
| 3516 |
case ESC_S: |
case ESC_S: |