From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Tue, 19 Feb 2013 08:59:09 +0000 (+0100)
Subject: Silence encoding.pm deprecation warnings in the core test suite
X-Git-Tag: upstream/5.20.0~3983
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=55673181017b5e113ef58bbb59978319aebbadcb;p=platform%2Fupstream%2Fperl.git

Silence encoding.pm deprecation warnings in the core test suite
---

diff --git a/t/op/tr.t b/t/op/tr.t
index 057be47..53530f2 100644
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -512,6 +512,7 @@ SKIP: {
 eval q{ $a ~= tr/a/b/; };
 ok 1;
 SKIP: {
+    no warnings "deprecated";
     skip "no encoding", 1 unless eval { require encoding; 1 };
     eval q{ use encoding "utf8"; $a ~= tr/a/b/; };
     ok 1;
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 29a64dd..b63491e 100644
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -1804,6 +1804,7 @@ EOP
 	   'IsPunct disagrees with [:punct:] outside ASCII');
 
         my @isPunctLatin1 = eval q {
+            no warnings 'deprecated';
             use encoding 'latin1';
             grep {/[[:punct:]]/ != /\p{IsPunct}/} map {chr} 0x80 .. 0xff;
         };
diff --git a/t/uni/chr.t b/t/uni/chr.t
index 854d725..9445d32 100644
--- a/t/uni/chr.t
+++ b/t/uni/chr.t
@@ -9,6 +9,7 @@ BEGIN {
 
 use strict;
 plan (tests => 8);
+no warnings 'deprecated';
 use encoding 'johab';
 
 ok(chr(0x7f) eq "\x7f");
diff --git a/t/uni/greek.t b/t/uni/greek.t
index 1737a67..5326ab9 100644
--- a/t/uni/greek.t
+++ b/t/uni/greek.t
@@ -9,6 +9,7 @@ BEGIN {
 
 plan tests => 72;
 
+no warnings 'deprecated';
 use encoding "greek"; # iso 8859-7
 
 # U+0391, \xC1, \301, GREEK CAPITAL LETTER ALPHA
diff --git a/t/uni/latin2.t b/t/uni/latin2.t
index 1527471..6e7d980 100644
--- a/t/uni/latin2.t
+++ b/t/uni/latin2.t
@@ -9,6 +9,7 @@ BEGIN {
 
 plan tests => 94;
 
+no warnings 'deprecated';
 use encoding "latin2"; # iso 8859-2
 
 # U+00C1, \xC1, \301, LATIN CAPITAL LETTER A WITH ACUTE
diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t
index 2118070..2108319 100644
--- a/t/uni/tr_7jis.t
+++ b/t/uni/tr_7jis.t
@@ -13,6 +13,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'iso-2022-jp';
 
 my @hiragana =  map {chr} ord("$B$!(B")..ord("$B$s(B");
diff --git a/t/uni/tr_eucjp.t b/t/uni/tr_eucjp.t
index 27daf32..a317bb1 100644
--- a/t/uni/tr_eucjp.t
+++ b/t/uni/tr_eucjp.t
@@ -12,6 +12,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'euc-jp';
 
 my @hiragana =  map {chr} ord("¤¡")..ord("¤ó");
diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t
index 290dd8c..a82b35c 100644
--- a/t/uni/tr_sjis.t
+++ b/t/uni/tr_sjis.t
@@ -12,6 +12,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'shiftjis';
 
 my @hiragana =  map {chr} ord("‚Ÿ")..ord("‚ñ");
diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t
index 25a6753..2a566d9 100644
--- a/t/uni/tr_utf8.t
+++ b/t/uni/tr_utf8.t
@@ -13,6 +13,7 @@ BEGIN {
 
 use strict;
 plan(tests => 8);
+no warnings 'deprecated';
 use encoding 'utf8';
 
 my @hiragana =  map {chr} ord("ぁ")..ord("ん");