Silence warnings in Pod::Man

p4raw-id: //depot/perl@29242

diff --git a/lib/Pod/t/man.t b/lib/Pod/t/man.t
index b293eb4..e09f8de 100644 (file)
--- a/lib/Pod/t/man.t
+++ b/lib/Pod/t/man.t
@@ -42,6 +42,7 @@ while (<DATA>) {
 
     while (<DATA>) {
         last if $_ eq "###\n";
+        no warnings 'utf8';
         print TMP $_;
     }
     close TMP;