remove the use of global warnings, which can expose suppressed warnings in third-party modules

39 files changed, 4 insertions, 76 deletions

diff --git a/t/abs.t b/t/abs.t
index fa761e0..ac79686 100644
--- a/t/abs.t
+++ b/t/abs.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/clone.t b/t/clone.t
index 72b0cea..57201f5 100644
--- a/t/clone.t
+++ b/t/clone.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/cwd.t b/t/cwd.t
index 784ef16..c8eed39 100644
--- a/t/cwd.t
+++ b/t/cwd.t
@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -T
 
 use strict;
 use warnings;
diff --git a/t/data.t b/t/data.t
index cfec71a..64920d9 100644
--- a/t/data.t
+++ b/t/data.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/escape.t b/t/escape.t
index 168f5a4..05b8022 100644
--- a/t/escape.t
+++ b/t/escape.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/file.t b/t/file.t
index 377397a..26e0119 100644
--- a/t/file.t
+++ b/t/file.t
@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -T
 
 use strict;
 use warnings;
diff --git a/t/ftp.t b/t/ftp.t
index 4f9bc60..9340885 100644
--- a/t/ftp.t
+++ b/t/ftp.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/generic.t b/t/generic.t
index b308674..e2f7b97 100644
--- a/t/generic.t
+++ b/t/generic.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/gopher.t b/t/gopher.t
index de2db60..427a5fc 100644
--- a/t/gopher.t
+++ b/t/gopher.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/heuristic.t b/t/heuristic.t
index dc4d510..63c2ad8 100644
--- a/t/heuristic.t
+++ b/t/heuristic.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/http.t b/t/http.t
index 5e2459d..fb30124 100644
--- a/t/http.t
+++ b/t/http.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/idna.t b/t/idna.t
index 859d4b9..da2ad98 100644
--- a/t/idna.t
+++ b/t/idna.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/iri.t b/t/iri.t
index 681581c..f1dfd51 100644
--- a/t/iri.t
+++ b/t/iri.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/ldap.t b/t/ldap.t
index 4ba4735..3cd3dd8 100644
--- a/t/ldap.t
+++ b/t/ldap.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/mailto.t b/t/mailto.t
index b8838f6..f13a1f8 100644
--- a/t/mailto.t
+++ b/t/mailto.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/mix.t b/t/mix.t
index e7da25c..b72942a 100644
--- a/t/mix.t
+++ b/t/mix.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/mms.t b/t/mms.t
index 4723af5..d3ac1d1 100644
--- a/t/mms.t
+++ b/t/mms.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/news.t b/t/news.t
index 267445a..a009a9e 100644
--- a/t/news.t
+++ b/t/news.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/num_eq.t b/t/num_eq.t
index 2906f6c..066d84c 100644
--- a/t/num_eq.t
+++ b/t/num_eq.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl -w
-
 # Test URI's overloading of numeric comparison for checking object
 # equality
 
diff --git a/t/old-absconf.t b/t/old-absconf.t
index 0a4938c..536f4d7 100644
--- a/t/old-absconf.t
+++ b/t/old-absconf.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/old-base.t b/t/old-base.t
index 6dbdb80..77b562b 100644
--- a/t/old-base.t
+++ b/t/old-base.t
@@ -1,5 +1,3 @@
-#!/local/bin/perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/old-file.t b/t/old-file.t
index 1162614..e1ab8f5 100644
--- a/t/old-file.t
+++ b/t/old-file.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/old-relbase.t b/t/old-relbase.t
index a4e8025..3bd0ae8 100644
--- a/t/old-relbase.t
+++ b/t/old-relbase.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/path-segments.t b/t/path-segments.t
index 6b11f1c..ea9b4fa 100755
--- a/t/path-segments.t
+++ b/t/path-segments.t
@@ -1,6 +1,6 @@
-#!perl -w
-
 use strict;
+use warnings;
+
 use Test::More 'no_plan';
 
 use URI ();
diff --git a/t/pop.t b/t/pop.t
index 8932e44..4519484 100644
--- a/t/pop.t
+++ b/t/pop.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/punycode.t b/t/punycode.t
index 91c1d49..d1e3084 100644
--- a/t/punycode.t
+++ b/t/punycode.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/query-param.t b/t/query-param.t
index 777d83a..fc852c0 100644
--- a/t/query-param.t
+++ b/t/query-param.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/query.t b/t/query.t
index 98ceacd..2970814 100644
--- a/t/query.t
+++ b/t/query.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/rel.t b/t/rel.t
index 12c5b60..0dad165 100644
--- a/t/rel.t
+++ b/t/rel.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/rfc2732.t b/t/rfc2732.t
index b11dea9..d69960a 100644
--- a/t/rfc2732.t
+++ b/t/rfc2732.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 # Test URIs containing IPv6 addresses
 
 use strict;
diff --git a/t/roy-test.t b/t/roy-test.t
index 23c7e9a..a7a9fdc 100644
--- a/t/roy-test.t
+++ b/t/roy-test.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/rsync.t b/t/rsync.t
index 1585aab..01e91d7 100644
--- a/t/rsync.t
+++ b/t/rsync.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/rtsp.t b/t/rtsp.t
index 46c8a62..208b63b 100644
--- a/t/rtsp.t
+++ b/t/rtsp.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/sip.t b/t/sip.t
index 993295f..506bba3 100644
--- a/t/sip.t
+++ b/t/sip.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/split.t b/t/split.t
index b8e2631..34104b8 100644
--- a/t/split.t
+++ b/t/split.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/storable-test.pl b/t/storable-test.pl
index c558fa4..33deb6f 100644
--- a/t/storable-test.pl
+++ b/t/storable-test.pl
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 use Storable;
diff --git a/t/storable.t b/t/storable.t
index 6343b3f..cf6e65a 100644
--- a/t/storable.t
+++ b/t/storable.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/urn-isbn.t b/t/urn-isbn.t
index 998aaa2..d8985f7 100644
--- a/t/urn-isbn.t
+++ b/t/urn-isbn.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;
 
diff --git a/t/urn-oid.t b/t/urn-oid.t
index 105f3a1..d35e524 100644
--- a/t/urn-oid.t
+++ b/t/urn-oid.t
@@ -1,5 +1,3 @@
-#!perl -w
-
 use strict;
 use warnings;