diff options
| -rwxr-xr-x | t/op/pat.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 5512b2b17d..1af8fb36fa 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4416,7 +4416,7 @@ ok($@=~/\QSequence \k... not terminated in regex;\E/); my $_ = "aoeu \xe6var ook"; /^ \w+ \s (?<eek>\S+)/x; - iseq( length($`), 4, 'length $`' ); + iseq( length($`), 0, 'length $`' ); iseq( length($'), 4, q[length $'] ); iseq( length($&), 9, 'length $&' ); iseq( length($1), 4, 'length $1' ); |