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 (file)
--- 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 {
     # 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 @_);
         }
     };
             print(STDERR @_);
         }
     };

diff --git a/lib/bigfloatpl.t b/lib/bigfloatpl.t
index a3810e3..0a26598 100644 (file)
--- 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 {
     # 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 @_);
         }
     };
             print(STDERR @_);
         }
     };

diff --git a/lib/bigintpl.t b/lib/bigintpl.t
index 9245683..bdd4919 100644 (file)
--- 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 {
     # 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 @_);
         }
     };
             print(STDERR @_);
         }
     };