Fix new tests

p4raw-id: //depot/perl@30882

diff --git a/t/op/pat.t b/t/op/pat.t
index 5512b2b..1af8fb3 100755 (executable)
--- 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' );