}
# Until fixed, this was skipping the '['
- unlike("abc]c", qr/^ (*sr:a(*sr:[bc]*)c) $/x, "Doesn't skip parts of exact matches");
+ unlike("abc]c", qr/^ (*sr:a(*sr:[bc]*)c) $/x,
+ "Doesn't skip parts of exact matches");
- like("abc", qr/(*asr:a[bc]*c)/, "Outer asr works on a run");
- unlike("abc", qr/(*asr:a(*asr:[bc]*)c)/, "Nested asr works to exclude some things");
+ like("abc", qr/(*asr:a[bc]*c)/, "Outer asr works on a run");
+ unlike("abc", qr/(*asr:a(*asr:[bc]*)c)/,
+ "Nested asr works to exclude some things");
like("\x{0980}12\x{0993}", qr/^(*sr:.{4})/,
"Script with own zero works with ASCII digits"); # perl #133547