In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/cac1beb07914178078e9fe59db3a6f74bad85860?hp=c9d5e35e7efda8acf195b970afb943d0d7481bb4>
- Log ----------------------------------------------------------------- commit cac1beb07914178078e9fe59db3a6f74bad85860 Author: Nicholas Clark <[email protected]> Date: Tue Jun 29 20:32:33 2010 +0100 Suppress deprecation warnings from test output for perl4 era libs. A tweak to the pattern used by 96471c6b3e9cad6e, to match the current warning. ----------------------------------------------------------------------- Summary of changes: cpan/Getopt-Long/t/gol-compat.t | 2 +- lib/bigfloatpl.t | 2 +- lib/bigintpl.t | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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 @_); } }; -- Perl5 Master Repository
