From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 15 Feb 2008 10:19:05 +0000 (+0000)
Subject: Avoid utf8 warnings when printing diagnostics
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=320adbb0e220870c173d49e429415e907d3b4474;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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",