Avoid utf8 warnings when printing diagnostics
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 15 Feb 2008 10:19:05 +0000 (10:19 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 15 Feb 2008 10:19:05 +0000 (10:19 +0000)
p4raw-id: //depot/perl@33316

t/op/pat.t

index 3c446e0..823c6a8 100755 (executable)
@@ -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",