Change 11654 by jhi@alpha on 2001/08/12 22:56:47
Failure not true anymore.
Affected files ...
... //depot/perl/t/op/pat.t#112 edit
Differences ...
==== //depot/perl/t/op/pat.t#112 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Sun Aug 12 17:00:05 2001
+++ perl/t/op/pat.t Sun Aug 12 17:00:05 2001
@@ -237,7 +237,7 @@
$out = 1;
'abc' =~ m'a(?{ $out = 3 })c';
print "not " if $out != 1;
-print "ok 64\n"; # this fails under use utf8 for no apparent reason --jhi
+print "ok 64\n";
$_ = 'foobar1 bar2 foobar3 barfoobar5 foobar6';
@out = /(?<!foo)bar./g;
End of Patch.
