Change 33316: Avoid utf8 warnings when printing diagnostics

[Rafael Garcia-Suarez]

Change 33316 by [EMAIL PROTECTED] on 2008/02/15 10:19:05

        Avoid utf8 warnings when printing diagnostics

Affected files ...

... //depot/perl/t/op/pat.t#306 edit

Differences ...

==== //depot/perl/t/op/pat.t#306 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#305~33313~  2008-02-14 09:01:41.000000000 -0800
+++ perl/t/op/pat.t     2008-02-15 02:19:05.000000000 -0800
@@ -3716,6 +3716,7 @@
     printf "%sok %d - %s$todo\n", ($ok ? "" : "not "), $test,
         ($name||$Message)."\tLine ".((caller)[2]);
 
+    no warnings 'utf8';
     printf "# Failed test at line %d\n".
            "# expected: %s\n". 
            "#   result: %s\n", 
End of Patch.