Silence more deprecation warnings in compatibility tests for Getopt::Long
authorSteffen Mueller <smueller@cpan.org>
Thu, 3 Sep 2009 08:45:17 +0000 (10:45 +0200)
committerSteffen Mueller <smueller@cpan.org>
Thu, 3 Sep 2009 08:45:17 +0000 (10:45 +0200)
lib/Getopt/Long/t/gol-compat.t

index c123ef2..fe4f746 100644 (file)
@@ -9,7 +9,17 @@ BEGIN {
     }
 }
 
     }
 }
 
-require "newgetopt.pl";
+{
+    # Silence the deprecation warnings from newgetopt.pl for the purpose
+    # 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/) {
+            print(STDERR @_);
+        }
+    };
+    require "newgetopt.pl";
+}
 
 print "1..9\n";
 
 
 print "1..9\n";