Put back the std @INC thing.

p4raw-id: //depot/perl@6581

diff --git a/t/lib/cgi-form.t b/t/lib/cgi-form.t
index 1be3894..6bfb76a 100755 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (file)
--- 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)