In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/55673181017b5e113ef58bbb59978319aebbadcb?hp=cff517f58dd82d18e36fcb75e3263c76b73e0f13>
- Log ----------------------------------------------------------------- commit 55673181017b5e113ef58bbb59978319aebbadcb Author: Rafael Garcia-Suarez <[email protected]> Date: Tue Feb 19 09:59:09 2013 +0100 Silence encoding.pm deprecation warnings in the core test suite ----------------------------------------------------------------------- Summary of changes: t/op/tr.t | 1 + t/re/pat_advanced.t | 1 + t/uni/chr.t | 1 + t/uni/greek.t | 1 + t/uni/latin2.t | 1 + t/uni/tr_7jis.t | 1 + t/uni/tr_eucjp.t | 1 + t/uni/tr_sjis.t | 1 + t/uni/tr_utf8.t | 1 + 9 files changed, 9 insertions(+), 0 deletions(-) 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("ã"); -- Perl5 Master Repository
