diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-31 16:02:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-31 16:02:03 +0000 |
| commit | 90d0f5d90b114a950673a399566c8f6697172d83 (patch) | |
| tree | 15e7ca926b0cb0920c10f7317fcfbcf2007965bb /t/op/pack.t | |
| parent | 5984bebf3eccb13848cd7a8b970b60f597fd78db (diff) | |
| download | perl-90d0f5d90b114a950673a399566c8f6697172d83.tar.gz | |
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
Diffstat (limited to 't/op/pack.t')
| -rwxr-xr-x | t/op/pack.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index d58a87d63c..f37c73f2e8 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 |