From 36e6c0f5894e5506448610538867d3411009193a Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Aug 2000 23:26:16 +0000
Subject: [PATCH] Put back the std @INC thing.

p4raw-id: //depot/perl@6581
---
 t/lib/cgi-form.t     | 5 +++++
 t/lib/cgi-function.t | 5 +++++
 t/lib/cgi-html.t     | 5 +++++
 t/lib/cgi-pretty.t   | 5 +++++
 t/lib/cgi-request.t  | 5 +++++
 t/lib/gol-basic.t    | 5 +++++
 t/lib/gol-compat.t   | 5 +++++
 t/lib/gol-linkage.t  | 5 +++++
 t/lib/gol-oo.t       | 5 +++++
 9 files changed, 45 insertions(+)

diff --git a/t/lib/cgi-form.t b/t/lib/cgi-form.t
index 1be3894..6bfb76a 100755
--- a/t/lib/cgi-form.t
+++ b/t/lib/cgi-form.t
@@ -1,5 +1,10 @@
 #!/usr/local/bin/perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 # Test ability to retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
 use lib '../blib/lib','../blib/arch';
diff --git a/t/lib/cgi-function.t b/t/lib/cgi-function.t
index 87ce5d4..46d077b 100755
--- a/t/lib/cgi-function.t
+++ b/t/lib/cgi-function.t
@@ -1,5 +1,10 @@
 #!/usr/local/bin/perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 # Test ability to retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
 use lib '../blib/lib','../blib/arch';
diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t
index 1ce02e4..a1ebe9e 100755
--- a/t/lib/cgi-html.t
+++ b/t/lib/cgi-html.t
@@ -1,5 +1,10 @@
 #!/usr/local/bin/perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 # Test ability to retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
 use lib '../blib/lib','../blib/arch';
diff --git a/t/lib/cgi-pretty.t b/t/lib/cgi-pretty.t
index 807897f..65b4722 100755
--- a/t/lib/cgi-pretty.t
+++ b/t/lib/cgi-pretty.t
@@ -1,5 +1,10 @@
 #!/usr/local/bin/perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 # Test ability to retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
 use lib '../blib/lib','../blib/arch';
diff --git a/t/lib/cgi-request.t b/t/lib/cgi-request.t
index 96775a9..3482f1c 100755
--- a/t/lib/cgi-request.t
+++ b/t/lib/cgi-request.t
@@ -1,5 +1,10 @@
 #!/usr/local/bin/perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 # Test ability to retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
 use lib '../blib/lib','../blib/arch';
diff --git a/t/lib/gol-basic.t b/t/lib/gol-basic.t
index 8ad074f..6707ef1 100755
--- a/t/lib/gol-basic.t
+++ b/t/lib/gol-basic.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 use Getopt::Long qw(:config no_ignore_case);
 die("Getopt::Long version 2.23_03 required--this is only version ".
     $Getopt::Long::VERSION)
diff --git a/t/lib/gol-compat.t b/t/lib/gol-compat.t
index 1d79306..2f566b0 100755
--- a/t/lib/gol-compat.t
+++ b/t/lib/gol-compat.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 require "newgetopt.pl";
 
 print "1..9\n";
diff --git a/t/lib/gol-linkage.t b/t/lib/gol-linkage.t
index 55c5a1a..69fc73b 100755
--- a/t/lib/gol-linkage.t
+++ b/t/lib/gol-linkage.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 use Getopt::Long;
 
 print "1..18\n";
diff --git a/t/lib/gol-oo.t b/t/lib/gol-oo.t
index 6100d18..106d54f 100644
--- a/t/lib/gol-oo.t
+++ b/t/lib/gol-oo.t
@@ -1,5 +1,10 @@
 #!./perl -w
 
+BEGIN {
+    chdir('t') if -d 't';
+    unshift @INC, '../lib';
+}
+
 use Getopt::Long;
 die("Getopt::Long version 2.23_03 required--this is only version ".
     $Getopt::Long::VERSION)
-- 
2.7.4