From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 31 Oct 2006 16:02:03 +0000 (+0000)
Subject: Some diagnostic output was giving warnings in op/pack.t
X-Git-Tag: accepted/trunk/20130322.191538~16717
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=90d0f5d90b114a950673a399566c8f6697172d83;p=platform%2Fupstream%2Fperl.git

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