From 90d0f5d90b114a950673a399566c8f6697172d83 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 31 Oct 2006 16:02:03 +0000
Subject: [PATCH] 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
---
 t/op/pack.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/op/pack.t b/t/op/pack.t
index d58a87d..f37c73f 100755
--- 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
-- 
2.7.4