From 124f1050af0476082167582bed258b20b95df7db Mon Sep 17 00:00:00 2001
From: Steven Schubiger <stsc@members.fsf.org>
Date: Wed, 12 Nov 2008 21:18:27 +0100
Subject: [PATCH] Remove shebang line from test libraries.

---
 tests/ChangeLog     | 6 ++++++
 tests/FTPServer.pm  | 3 +--
 tests/FTPTest.pm    | 3 +--
 tests/HTTPServer.pm | 3 +--
 tests/HTTPTest.pm   | 3 +--
 5 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/tests/ChangeLog b/tests/ChangeLog
index e432c35c..187a65a4 100644
--- 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 8c7cada7..94f3b9a7 100644
--- 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 eed2eb89..0b45c36c 100644
--- 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 57b0499f..ac055c32 100644
--- 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 0fdcb8f0..d1f5e54f 100644
--- 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;