Change 11818 by jhi@alpha on 2001/09/01 23:02:09
Test tweaks.
Affected files ...
... //depot/perl/t/op/pat.t#117 edit
Differences ...
==== //depot/perl/t/op/pat.t#117 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Sat Sep 1 17:15:05 2001
+++ perl/t/op/pat.t Sat Sep 1 17:15:05 2001
@@ -1989,6 +1989,8 @@
}
{
+ # [ID 20010407.006] matching utf8 return values from functions does not work
+
package ID_20010407_006;
sub x {
@@ -2000,7 +2002,7 @@
$x =~ /(..)/; $y = $1;
print "not " unless length($y) == 2 && $y eq $x;
- print "ok 685\n" if length($y) == 2;
+ print "ok 685\n";
x =~ /(..)/; $y = $1;
print "not " unless length($y) == 2 && $y eq $x;
End of Patch.
