This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress deprecation warnings from test output
[perl5.git] / lib / bigintpl.t
index 569db20..9245683 100644 (file)
@@ -4,7 +4,18 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
 }
-require "bigint.pl";
+
+{
+    # Silence the deprecation warnings from bigint.pl for the purpose
+    # 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/) {
+            print(STDERR @_);
+        }
+    };
+    require "bigint.pl";
+}
 
 $test = 0;
 $| = 1;