Remove shebang line from test libraries.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index e432c35ccd40a00efd95e033f85ed98876a06e92..187a65a49eb3b3ad62e6fbc401749ad2353f1da5 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-12  Steven Schubiger  <stsc@members.fsf.org>
+
+       * FTPServer.pm, FTPTest.pm, HTTPServer.pm, HTTPTest.pm:
+       Remove the magic interpreter line, because it cannot be
+       used fully. Substitute -w with use warnings.
+
 2008-11-11  Micah Cowan  <micah@cowan.name>
 
        * HTTPServer.pm (handle_auth): Allow testing of

diff --git a/tests/FTPServer.pm b/tests/FTPServer.pm
index 8c7cada7cd728368631eb3f951a73e62c6938c32..94f3b9a750fae93203610f73062d0057fe034ac6 100644 (file)
--- a/tests/FTPServer.pm
+++ b/tests/FTPServer.pm
@@ -1,11 +1,10 @@
-#!/usr/bin/perl -w
-
 # Part of this code was borrowed from Richard Jones's Net::FTPServer
 # http://www.annexia.org/freeware/netftpserver
 
 package FTPServer;
 
 use strict;
+use warnings;
 
 use Cwd;
 use Socket;

diff --git a/tests/FTPTest.pm b/tests/FTPTest.pm
index eed2eb89e930df48128d1e36781a7dbe0249b20a..0b45c36ca95f7cc4a8ad72096ccb768ba6df9af7 100644 (file)
--- a/tests/FTPTest.pm
+++ b/tests/FTPTest.pm
@@ -1,8 +1,7 @@
-#!/usr/bin/perl -w
-
 package FTPTest;
 
 use strict;
+use warnings;
 
 use FTPServer;
 use WgetTest;

diff --git a/tests/HTTPServer.pm b/tests/HTTPServer.pm
index 57b0499faa47df2c109210f6c9fb59769a457c65..ac055c32e7bd9a99d1450d807c0e258df527768e 100644 (file)
--- a/tests/HTTPServer.pm
+++ b/tests/HTTPServer.pm
@@ -1,8 +1,7 @@
-#!/usr/bin/perl -w
-
 package HTTPServer;
 
 use strict;
+use warnings;
 
 use HTTP::Daemon;
 use HTTP::Status;

diff --git a/tests/HTTPTest.pm b/tests/HTTPTest.pm
index 0fdcb8f0e4e3b622239be7328f3b3466a0056469..d1f5e54fd9a0a85a78bd78412341e96f12680077 100644 (file)
--- a/tests/HTTPTest.pm
+++ b/tests/HTTPTest.pm
@@ -1,8 +1,7 @@
-#!/usr/bin/perl -w
-
 package HTTPTest;
 
 use strict;
+use warnings;
 
 use HTTPServer;
 use WgetTest;