* Synced the perlfaq

[p5sagit/p5-mst-13.2.git] / lib / bigfloatpl.t

diff --git a/lib/bigfloatpl.t b/lib/bigfloatpl.t
index d67d13d..a3810e3 100644 (file)
--- a/lib/bigfloatpl.t
+++ b/lib/bigfloatpl.t
@@ -5,7 +5,17 @@ BEGIN {
     @INC = '../lib';
 }
 
-require "bigfloat.pl";
+{
+    # Silence the deprecation warnings from bigfloat.pl for the purpose
+    # 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/) {
+            print(STDERR @_);
+        }
+    };
+    require "bigfloat.pl";
+}
 
 $test = 0;
 $| = 1;