Avoid utf8 warnings when printing diagnostics

p4raw-id: //depot/perl@33316

diff --git a/t/op/pat.t b/t/op/pat.t
index 3c446e0..823c6a8 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -3716,6 +3716,7 @@ sub iseq($$;$) {
     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",