From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 10 Apr 2007 06:46:54 +0000 (+0000)
Subject: Fix new tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8aefeee2c641e088fc7ae56870f0748e4f607f90;p=p5sagit%2Fp5-mst-13.2.git

Fix new tests

p4raw-id: //depot/perl@30882
---

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