Some diagnostic output was giving warnings in op/pack.t

under UTF-8 locales, and warnings where fatal by default.
Make them non-fatal for diagnostics.

p4raw-id: //depot/perl@29175

diff --git a/t/op/pack.t b/t/op/pack.t
index d58a87d..f37c73f 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -711,7 +711,10 @@ sub byteorder
       skip "cannot pack '$format' on this perl", 5
         if is_valid_error($@);
 
-      print "# [$value][$nat][$be][$le][$@]\n";
+      {
+        use warnings qw(NONFATAL utf8);
+        print "# [$value][$nat][$be][$le][$@]\n";
+      }
 
       SKIP: {
         skip "cannot compare native byteorder with big-/little-endian", 1