& what's to be done for 5.8.0?

Message-ID: <20011007205333.S38756@plum.flirble.org>

p4raw-id: //depot/perl@12356

4 files changed, 21 insertions, 0 deletions

diff --git a/lib/Net/t/ftp.t b/lib/Net/t/ftp.t
index 46304dbc22..ec323d0307 100644
--- a/lib/Net/t/ftp.t
+++ b/lib/Net/t/ftp.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use Net::Config;
 use Net::FTP;
 
diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t
index 3e55ace019..d743dd44ea 100644
--- a/lib/Net/t/hostname.t
+++ b/lib/Net/t/hostname.t
@@ -1,3 +1,9 @@
+#!./perl -w
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
 
 use Net::Domain qw(hostname domainname hostdomain);
 use Net::Config;
diff --git a/lib/Net/t/nntp.t b/lib/Net/t/nntp.t
index 1afb588264..e7a42c18c4 100644
--- a/lib/Net/t/nntp.t
+++ b/lib/Net/t/nntp.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use Net::Config;
 use Net::NNTP;
 use Net::Cmd qw(CMD_REJECT);
diff --git a/lib/Net/t/smtp.t b/lib/Net/t/smtp.t
index 55607fe993..c7c3862ab6 100644
--- a/lib/Net/t/smtp.t
+++ b/lib/Net/t/smtp.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use Net::Config;
 use Net::SMTP;