| 86 |
# The private /+ modifier means "print $' afterwards". |
# The private /+ modifier means "print $' afterwards". |
| 87 |
|
|
| 88 |
$showrest = ($pattern =~ s/\+(?=[a-zA-Z]*$)//); |
$showrest = ($pattern =~ s/\+(?=[a-zA-Z]*$)//); |
| 89 |
|
|
| 90 |
# A doubled version is used by pcretest to print remainders after captures |
# A doubled version is used by pcretest to print remainders after captures |
| 91 |
|
|
| 92 |
$pattern =~ s/\+(?=[a-zA-Z]*$)//; |
$pattern =~ s/\+(?=[a-zA-Z]*$)//; |
| 93 |
|
|
| 94 |
# Remove /8 from a UTF-8 pattern. |
# Remove /8 from a UTF-8 pattern. |
| 95 |
|
|