| 3208 |
|
|
| 3209 |
/^(?&t)*(?(DEFINE)(?<t>.))$/BZ |
/^(?&t)*(?(DEFINE)(?<t>.))$/BZ |
| 3210 |
|
|
| 3211 |
|
/ -- The first four of these are not in the Perl 5.10 test because Perl |
| 3212 |
|
documents that the use of \K in assertions is "not well defined". The |
| 3213 |
|
last is here because Perl gives the match as "b" rather than "ab". I |
| 3214 |
|
believe this to be a Perl bug. --/ |
| 3215 |
|
|
| 3216 |
|
/(?=a\Kb)ab/ |
| 3217 |
|
ab |
| 3218 |
|
|
| 3219 |
|
/(?!a\Kb)ac/ |
| 3220 |
|
ac |
| 3221 |
|
|
| 3222 |
|
/^abc(?<=b\Kc)d/ |
| 3223 |
|
abcd |
| 3224 |
|
|
| 3225 |
|
/^abc(?<!b\Kq)d/ |
| 3226 |
|
abcd |
| 3227 |
|
|
| 3228 |
|
/(?>a\Kb)z|(ab)/ |
| 3229 |
|
ab |
| 3230 |
|
|
| 3231 |
|
/----------------------/ |
| 3232 |
|
|
| 3233 |
/-- End of testinput2 --/ |
/-- End of testinput2 --/ |