From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 29 Jun 2010 19:32:33 +0000 (+0100)
Subject: Suppress deprecation warnings from test output for perl4 era libs.
X-Git-Tag: accepted/trunk/20130322.191538~8632
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cac1beb07914178078e9fe59db3a6f74bad85860;p=platform%2Fupstream%2Fperl.git

Suppress deprecation warnings from test output for perl4 era libs.

A tweak to the pattern used by 96471c6b3e9cad6e, to match the current warning.
---

diff --git a/cpan/Getopt-Long/t/gol-compat.t b/cpan/Getopt-Long/t/gol-compat.t
index fe4f746..610474f 100644
--- a/cpan/Getopt-Long/t/gol-compat.t
+++ b/cpan/Getopt-Long/t/gol-compat.t
@@ -14,7 +14,7 @@ BEGIN {
     # of testing. These tests will be removed along with newgetopt.pl in
     # the next major release of perl.
     local $SIG{__WARN__} = sub {
-        if ($_[0] !~ /deprecated/) {
+        if ($_[0] !~ /will be removed from the Perl core distribution/) {
             print(STDERR @_);
         }
     };
diff --git a/lib/bigfloatpl.t b/lib/bigfloatpl.t
index a3810e3..0a26598 100644
--- a/lib/bigfloatpl.t
+++ b/lib/bigfloatpl.t
@@ -10,7 +10,7 @@ BEGIN {
     # of testing. These tests will be removed along with bigfloat.pl in
     # the next major release of perl.
     local $SIG{__WARN__} = sub {
-        if ($_[0] !~ /deprecated/) {
+        if ($_[0] !~ /will be removed from the Perl core distribution/) {
             print(STDERR @_);
         }
     };
diff --git a/lib/bigintpl.t b/lib/bigintpl.t
index 9245683..bdd4919 100644
--- a/lib/bigintpl.t
+++ b/lib/bigintpl.t
@@ -10,7 +10,7 @@ BEGIN {
     # of testing. These tests will be removed along with bigint.pl in
     # the next major release of perl.
     local $SIG{__WARN__} = sub {
-        if ($_[0] !~ /deprecated/) {
+        if ($_[0] !~ /will be removed from the Perl core distribution/) {
             print(STDERR @_);
         }
     };