Use lexical warnings in test scripts.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 187a65a49eb3b3ad62e6fbc401749ad2353f1da5..4c1b7de7fb1224167aab697747c474e86e2c63ab 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,34 @@
+2008-11-12  Steven Schubiger  <stsc@members.fsf.org>
+
+       * Test-auth-basic.px, Test-auth-no-challenge.px,
+       Test-auth-no-challenge-url.px, Test-c-full.px,
+       Test-c-partial.px, Test-c.px, Test-c-shorter.px,
+       Test-E-k-K.px, Test-E-k.px, Test-ftp.px, 
+       Test-HTTP-Content-Disposition-1.px, 
+       Test-HTTP-Content-Disposition-2.px,
+       Test-HTTP-Content-Disposition.px, Test-N-current.px,
+       Test-N-HTTP-Content-Disposition.px,
+       Test-N--no-content-disposition.px,
+       Test-N--no-content-disposition-trivial.px,
+       Test-N-no-info.px, Test--no-content-disposition.px,
+       Test--no-content-disposition-trivial.px, Test-N-old.px,
+       Test-nonexisting-quiet.px, Test-noop.px, Test-np.px,
+       Test-N.px, Test-N-smaller.px, 
+       Test-O-HTTP-Content-Disposition.px, Test-O-nc.px,
+       Test-O--no-content-disposition.px, 
+       Test-O--no-content-disposition-trivial.px,
+       Test-O-nonexisting.px, Test-O.px,
+       Test-proxy-auth-basic.px, Test-Restrict-Lowercase.px,
+       Test-Restrict-Uppercase.px,
+       Test--spider-fail.pxm, Test--spider.px,
+       Test--spider-r-HTTP-Content-Disposition.px,
+       Test--spider-r--no-content-disposition.px,
+       Test--spider-r--no-content-disposition-trivial.px,
+       Test--spider-r.px: Enforce lexically scoped warnings.
+
+       * Test-proxied-https-auth.px, run-px: Place use strict
+       before use warnings.
+
 2008-11-12  Steven Schubiger  <stsc@members.fsf.org>
 
        * FTPServer.pm, FTPTest.pm, HTTPServer.pm, HTTPTest.pm:

diff --git a/tests/Test--no-content-disposition-trivial.px b/tests/Test--no-content-disposition-trivial.px
index 6a5b1def49ae32fd7ce3f3ef8e75fa8ed8c553cf..43eb7bfd7b81aa80f7c0fb249b9db5c295165325 100755 (executable)
--- a/tests/Test--no-content-disposition-trivial.px
+++ b/tests/Test--no-content-disposition-trivial.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--no-content-disposition.px b/tests/Test--no-content-disposition.px
index 4975913b63229e6ef398aa960a8897f56b6d9299..7736a2e523873ac3dbfaa3bf415287f9dd33c163 100755 (executable)
--- a/tests/Test--no-content-disposition.px
+++ b/tests/Test--no-content-disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--spider-fail.px b/tests/Test--spider-fail.px
index b30ef755f44894758459da415043304338c90231..6e5c976d3a22eb99a1ae197c50679339b8104f1c 100755 (executable)
--- a/tests/Test--spider-fail.px
+++ b/tests/Test--spider-fail.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--spider-r--no-content-disposition-trivial.px b/tests/Test--spider-r--no-content-disposition-trivial.px
index 1e850d4086bd53db9f8e3faa868094b3db5b4f0d..0bd7d29e6f421c569d1ed66d5c5a45b373fff77f 100755 (executable)
--- a/tests/Test--spider-r--no-content-disposition-trivial.px
+++ b/tests/Test--spider-r--no-content-disposition-trivial.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--spider-r--no-content-disposition.px b/tests/Test--spider-r--no-content-disposition.px
index 4eba8579d2f1faae66eeddc0aaf0c553238b06d6..78beb18d706c2f3b10766a6938520de136be764b 100755 (executable)
--- a/tests/Test--spider-r--no-content-disposition.px
+++ b/tests/Test--spider-r--no-content-disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--spider-r-HTTP-Content-Disposition.px b/tests/Test--spider-r-HTTP-Content-Disposition.px
index 09f93fa3d3f1f76464bb9e54c2465cb437f2aaf5..e79152f73bd3387a51915b97849cef7d86bf7443 100755 (executable)
--- a/tests/Test--spider-r-HTTP-Content-Disposition.px
+++ b/tests/Test--spider-r-HTTP-Content-Disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--spider-r.px b/tests/Test--spider-r.px
index a315d97491df450ab551bb9bdd333a2608cfb130..b32f792dd4e362e67a6ee7d4e02b832f2d44624a 100755 (executable)
--- a/tests/Test--spider-r.px
+++ b/tests/Test--spider-r.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test--spider.px b/tests/Test--spider.px
index dbc97135aa352bb78f27993c53f08b107203e625..6e8ba499691055fb2bb25414d143571efbef72eb 100755 (executable)
--- a/tests/Test--spider.px
+++ b/tests/Test--spider.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-E-k-K.px b/tests/Test-E-k-K.px
index d71c39e5da0a782507348ed2feb5fd310ae44407..4a2cf6148e8f3e618bb2347a7d08eb7f06c1a154 100755 (executable)
--- a/tests/Test-E-k-K.px
+++ b/tests/Test-E-k-K.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-E-k.px b/tests/Test-E-k.px
index 4581ed71c65af49456b00c80215d8d7bee24d8f4..40d6b6dcb3e3681b31e33b22e5b29d011ed12661 100755 (executable)
--- a/tests/Test-E-k.px
+++ b/tests/Test-E-k.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-HTTP-Content-Disposition-1.px b/tests/Test-HTTP-Content-Disposition-1.px
index 01fb09017d6ce8b08d4a506b34241d29563a417d..3d2701433b0ba136478ff48dc13af7b2987773bd 100755 (executable)
--- a/tests/Test-HTTP-Content-Disposition-1.px
+++ b/tests/Test-HTTP-Content-Disposition-1.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-HTTP-Content-Disposition-2.px b/tests/Test-HTTP-Content-Disposition-2.px
index 46c16a179155bbd65eb6964222bf4b6a5694aab6..6550d36f1350ae18fd04cd22ac03d8dfdf5de532 100755 (executable)
--- a/tests/Test-HTTP-Content-Disposition-2.px
+++ b/tests/Test-HTTP-Content-Disposition-2.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-HTTP-Content-Disposition.px b/tests/Test-HTTP-Content-Disposition.px
index 3b6eb2c9aaf98e4d3e286e6ef2669aba967076e9..afc964a4e1df4fc11abfc6b19f9bd8c6c653d206 100755 (executable)
--- a/tests/Test-HTTP-Content-Disposition.px
+++ b/tests/Test-HTTP-Content-Disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N--no-content-disposition-trivial.px b/tests/Test-N--no-content-disposition-trivial.px
index c58f451aa8036b0e99f7c0a725ca531b3b5d9f62..83f0e4edba75dffc2b7ca99c8dba43ea5c393aa5 100755 (executable)
--- a/tests/Test-N--no-content-disposition-trivial.px
+++ b/tests/Test-N--no-content-disposition-trivial.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N--no-content-disposition.px b/tests/Test-N--no-content-disposition.px
index 78fe522ff12c664f29c82b2d1b89607123257c5b..f142d30680e4c727bd2188362bbff5781fcae38c 100755 (executable)
--- a/tests/Test-N--no-content-disposition.px
+++ b/tests/Test-N--no-content-disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N-HTTP-Content-Disposition.px b/tests/Test-N-HTTP-Content-Disposition.px
index 32f877105fbbcfdb15f51b0038a01c27a5d89285..d33155e46d25a9e39112f1ab09f792456e7a6dbe 100755 (executable)
--- a/tests/Test-N-HTTP-Content-Disposition.px
+++ b/tests/Test-N-HTTP-Content-Disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N-current.px b/tests/Test-N-current.px
index b8e05a9475b407020b4666e2d93873a9a7c12e4f..0ef472892cdd12b0b75b1c7c649f78f06bf948ff 100755 (executable)
--- a/tests/Test-N-current.px
+++ b/tests/Test-N-current.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N-no-info.px b/tests/Test-N-no-info.px
index 301a9101f077364d46af0bea835261eacd2c1915..9dec6eda7d24eced6376cb765f38e6902d60995e 100755 (executable)
--- a/tests/Test-N-no-info.px
+++ b/tests/Test-N-no-info.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N-old.px b/tests/Test-N-old.px
index 6ae116e51028d5577818e3e2d2f24915c29cbe30..fe16dbfbde6a9a6106f950f70300fbe15ea90101 100755 (executable)
--- a/tests/Test-N-old.px
+++ b/tests/Test-N-old.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N-smaller.px b/tests/Test-N-smaller.px
index 71e34d96136980298092d841e5660a8772faaf50..e5dceae6a113eb349b8e211d4f9f0beff6449eae 100755 (executable)
--- a/tests/Test-N-smaller.px
+++ b/tests/Test-N-smaller.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-N.px b/tests/Test-N.px
index 2e235e08a9d9c5dff55429b8a87392bd964a2fa2..2f139b51a7032f60d55025746bb317c5fde2c4f6 100755 (executable)
--- a/tests/Test-N.px
+++ b/tests/Test-N.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-O--no-content-disposition-trivial.px b/tests/Test-O--no-content-disposition-trivial.px
index 501fd44d407d045ed9f46bab2fa86344ac641765..75a3e6f14f4140bfa6c725747fdb4e6eaa91cfd1 100755 (executable)
--- a/tests/Test-O--no-content-disposition-trivial.px
+++ b/tests/Test-O--no-content-disposition-trivial.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-O--no-content-disposition.px b/tests/Test-O--no-content-disposition.px
index 592f0fec2303c72ae1c778a8a8d49502b3c7c381..3369ec42fb99cb2be2e9f6023cb9ca32b725eab1 100755 (executable)
--- a/tests/Test-O--no-content-disposition.px
+++ b/tests/Test-O--no-content-disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-O-HTTP-Content-Disposition.px b/tests/Test-O-HTTP-Content-Disposition.px
index 934f54aa968f3f81e2fbb6fca4a77b704cc1979b..e18880a7ff665994b160484819b66cd217d77c66 100755 (executable)
--- a/tests/Test-O-HTTP-Content-Disposition.px
+++ b/tests/Test-O-HTTP-Content-Disposition.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-O-nc.px b/tests/Test-O-nc.px
index 08819e4bba95f47dbf02883d65ff1886d4a0434c..530ac6545b1d5b892e9b05452851952e392dd882 100755 (executable)
--- a/tests/Test-O-nc.px
+++ b/tests/Test-O-nc.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-O-nonexisting.px b/tests/Test-O-nonexisting.px
index 89744fc883b350e7984a39218bb0125039cde15d..60ef7c70b1c7c8db2b0c2146771ffa9c9b98b663 100755 (executable)
--- a/tests/Test-O-nonexisting.px
+++ b/tests/Test-O-nonexisting.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-O.px b/tests/Test-O.px
index 1f4e8efe65fae32ab829ab52dbcb9c129ef0200f..552c665438a19f30f26d84081061e30553401046 100755 (executable)
--- a/tests/Test-O.px
+++ b/tests/Test-O.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-Restrict-Lowercase.px b/tests/Test-Restrict-Lowercase.px
index 2b35f1e40037c805f8d1de1a5e46e104b912cf13..e5d270dc1e63be4657bc0a7b5f591aa55750873b 100755 (executable)
--- a/tests/Test-Restrict-Lowercase.px
+++ b/tests/Test-Restrict-Lowercase.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-Restrict-Uppercase.px b/tests/Test-Restrict-Uppercase.px
index 14fa81f4373296429e0cbc051abd2eaeb60877c2..1175fbd27972e9633646b416f9fab2ab701a3ce6 100755 (executable)
--- a/tests/Test-Restrict-Uppercase.px
+++ b/tests/Test-Restrict-Uppercase.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-auth-basic.px b/tests/Test-auth-basic.px
index 750136090ac23a03d00fa6a325c27f645b9ca761..e60be4c74f4aefb80df09703d81f7f1234fc1d01 100755 (executable)
--- a/tests/Test-auth-basic.px
+++ b/tests/Test-auth-basic.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-auth-no-challenge-url.px b/tests/Test-auth-no-challenge-url.px
index 53f6245baa47d4103343199c40530869d52c758a..4b947ed22332742a73af639d78531db2b42e72bb 100755 (executable)
--- a/tests/Test-auth-no-challenge-url.px
+++ b/tests/Test-auth-no-challenge-url.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-auth-no-challenge.px b/tests/Test-auth-no-challenge.px
index 19b2a6d67068295574d8688f600c9f0a48161c47..ec322844b4b5f1f3ebb723567b7bc106dde311ed 100755 (executable)
--- a/tests/Test-auth-no-challenge.px
+++ b/tests/Test-auth-no-challenge.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-c-full.px b/tests/Test-c-full.px
index f277a023897f4818c6e8468a5cb52a401e7f32d7..2d10745312ee38bba871e53fc56db3525a93e3b2 100755 (executable)
--- a/tests/Test-c-full.px
+++ b/tests/Test-c-full.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-c-partial.px b/tests/Test-c-partial.px
index 022342423e81f3ebe68bd43efefa28f8d2309b06..57095472e9b57d90382053287fb7bba0f07031a8 100755 (executable)
--- a/tests/Test-c-partial.px
+++ b/tests/Test-c-partial.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-c-shorter.px b/tests/Test-c-shorter.px
index 432cab92fff726d350c5611e8154fb31f88c69e9..9823e7461e04f83b0e893b4d7eaa16a37edc35c3 100755 (executable)
--- a/tests/Test-c-shorter.px
+++ b/tests/Test-c-shorter.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-c.px b/tests/Test-c.px
index 8c61eb06e46d37041156af27e82c197202e64b58..2fb705f1b3f9ab3c81d15faf4b2e4ef454ea6c34 100755 (executable)
--- a/tests/Test-c.px
+++ b/tests/Test-c.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-ftp.px b/tests/Test-ftp.px
index 8cef5a55f8f9ca26c91a06dbdba787484cbe7a76..a98d745feaf67103eba2806b563af1af8bd30aa6 100755 (executable)
--- a/tests/Test-ftp.px
+++ b/tests/Test-ftp.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use FTPTest;
 

diff --git a/tests/Test-nonexisting-quiet.px b/tests/Test-nonexisting-quiet.px
index 2766b5c597e825a618ee210e54009bfaa3315563..04e11587ebdcafd21600851be4298cabf332a953 100755 (executable)
--- a/tests/Test-nonexisting-quiet.px
+++ b/tests/Test-nonexisting-quiet.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-noop.px b/tests/Test-noop.px
index 14bd851c0a79a21e0ee76c7f0640305db4bee295..1e0d1871678b5a8827df4bbdd124b41c8b379b04 100755 (executable)
--- a/tests/Test-noop.px
+++ b/tests/Test-noop.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-np.px b/tests/Test-np.px
index 28d13eeced2d7d69f58b7362583197d8996c8756..f674193a3d7b50f57cf3232723dffabcdd6d56d9 100755 (executable)
--- a/tests/Test-np.px
+++ b/tests/Test-np.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/Test-proxied-https-auth.px b/tests/Test-proxied-https-auth.px
index a2efe5ebcb5b90a82d1733c00965c4bf177127ff..4e3fb206dcdf8645a1815beead355aa3ce565c32 100755 (executable)
--- a/tests/Test-proxied-https-auth.px
+++ b/tests/Test-proxied-https-auth.px
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
-use warnings;
+
 use strict;
+use warnings;
 
 use WgetTest;  # For $WGETPATH.
 

diff --git a/tests/Test-proxy-auth-basic.px b/tests/Test-proxy-auth-basic.px
index e440a3927900b9c2c7ca14f17f3fb457548b64ce..7b3a638f4c885e9d025f6434ca92ba6c335a607e 100755 (executable)
--- a/tests/Test-proxy-auth-basic.px
+++ b/tests/Test-proxy-auth-basic.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 

diff --git a/tests/run-px b/tests/run-px
index ef38418c510cecb0823b66892df086263fdffd36..0f8f29648aa21f2df19a2068c628772e081bfe51 100755 (executable)
--- a/tests/run-px
+++ b/tests/run-px
@@ -1,8 +1,8 @@
 #!/usr/bin/env perl
 
 use 5.006;
-use warnings;
 use strict;
+use warnings;
 
 use Term::ANSIColor ':constants';
 $Term::ANSIColor::AUTORESET = 1;