Silence encoding.pm deprecation warnings in the core test suite
authorRafael Garcia-Suarez <rgs@consttype.org>
Tue, 19 Feb 2013 08:59:09 +0000 (09:59 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Tue, 19 Feb 2013 08:59:33 +0000 (09:59 +0100)
t/op/tr.t
t/re/pat_advanced.t
t/uni/chr.t
t/uni/greek.t
t/uni/latin2.t
t/uni/tr_7jis.t
t/uni/tr_eucjp.t
t/uni/tr_sjis.t
t/uni/tr_utf8.t

index 057be47..53530f2 100644 (file)
--- 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;
index 29a64dd..b63491e 100644 (file)
@@ -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;
         };
index 854d725..9445d32 100644 (file)
@@ -9,6 +9,7 @@ BEGIN {
 
 use strict;
 plan (tests => 8);
+no warnings 'deprecated';
 use encoding 'johab';
 
 ok(chr(0x7f) eq "\x7f");
index 1737a67..5326ab9 100644 (file)
@@ -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
index 1527471..6e7d980 100644 (file)
@@ -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
index 2118070..2108319 100644 (file)
@@ -13,6 +13,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'iso-2022-jp';
 
 my @hiragana =  map {chr} ord("\e$B$!\e(B")..ord("\e$B$s\e(B");
index 27daf32..a317bb1 100644 (file)
@@ -12,6 +12,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'euc-jp';
 
 my @hiragana =  map {chr} ord("¤¡")..ord("¤ó");
index 290dd8c..a82b35c 100644 (file)
@@ -12,6 +12,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'shiftjis';
 
 my @hiragana =  map {chr} ord("‚Ÿ")..ord("‚ñ");
index 25a6753..2a566d9 100644 (file)
@@ -13,6 +13,7 @@ BEGIN {
 
 use strict;
 plan(tests => 8);
+no warnings 'deprecated';
 use encoding 'utf8';
 
 my @hiragana =  map {chr} ord("ぁ")..ord("ん");