make testsuite somewhat location independent

p4raw-id: //depot/perl@2891

28 files changed, 28 insertions, 28 deletions

diff --git a/t/op/assignwarn.t b/t/op/assignwarn.t
index 57e89c45e0..00f7abbf67 100755
--- a/t/op/assignwarn.t
+++ b/t/op/assignwarn.t
@@ -8,7 +8,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 use strict;
diff --git a/t/op/avhv.t b/t/op/avhv.t
index 55cc992e63..6837127d52 100755
--- a/t/op/avhv.t
+++ b/t/op/avhv.t
@@ -2,7 +2,7 @@
       
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 require Tie::Array;
diff --git a/t/op/bop.t b/t/op/bop.t
index b247341417..0c5ef4874d 100755
--- a/t/op/bop.t
+++ b/t/op/bop.t
@@ -6,7 +6,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 print "1..18\n";
diff --git a/t/op/closure.t b/t/op/closure.t
index 95d44f51e3..2284be6df1 100755
--- a/t/op/closure.t
+++ b/t/op/closure.t
@@ -7,7 +7,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 use Config;
diff --git a/t/op/defins.t b/t/op/defins.t
index 33c74ea28e..9e714a718b 100755
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -6,7 +6,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
     print "1..14\n";
 }
diff --git a/t/op/die_exit.t b/t/op/die_exit.t
index e24d01d24c..7808d9d7c5 100755
--- a/t/op/die_exit.t
+++ b/t/op/die_exit.t
@@ -7,7 +7,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -e '../lib';
+    unshift @INC, '../lib' if -e '../lib';
 }
 my $perl = -e '../perl' ? '../perl' : -e './perl' ? './perl' : 'perl';
 
diff --git a/t/op/fork.t b/t/op/fork.t
index 9790ff0f8c..516aa735fe 100755
--- a/t/op/fork.t
+++ b/t/op/fork.t
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     require Config; import Config;
     unless ($Config{'d_fork'}) {
 	print "1..0\n";
diff --git a/t/op/goto_xs.t b/t/op/goto_xs.t
index a35575eb26..8d9bca1cd6 100755
--- a/t/op/goto_xs.t
+++ b/t/op/goto_xs.t
@@ -10,7 +10,7 @@
 #       break correctly as well.
 
 chdir 't' if -d 't';
-@INC = "../lib";
+unshift @INC, "../lib";
 $ENV{PERL5LIB} = "../lib";
 
 # turn warnings into fatal errors
diff --git a/t/op/hashwarn.t b/t/op/hashwarn.t
index 6343a2a8d5..634e7e1f25 100755
--- a/t/op/hashwarn.t
+++ b/t/op/hashwarn.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 use strict;
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index 8ca22b0378..e45f8eaba7 100755
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 umask 0;
diff --git a/t/op/magic.t b/t/op/magic.t
index 056ded4068..9b819a8d7b 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -4,7 +4,7 @@ BEGIN {
     $^W = 1;
     $| = 1;
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
 }
 
diff --git a/t/op/misc.t b/t/op/misc.t
index 57d57b7b37..78c8bf2eec 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -4,7 +4,7 @@
 # separate executable and can't simply use eval.
 
 chdir 't' if -d 't';
-@INC = "../lib";
+unshift @INC, "../lib";
 $ENV{PERL5LIB} = "../lib";
 
 $|=1;
diff --git a/t/op/nothread.t b/t/op/nothread.t
index a0d444d90b..cee8e2dbe1 100755
--- a/t/op/nothread.t
+++ b/t/op/nothread.t
@@ -6,7 +6,7 @@
 BEGIN
  {
   chdir 't' if -d 't';
-  @INC = "../lib";
+  unshift @INC, "../lib";
   require Config;
   import Config;
   if ($Config{'usethreads'})
diff --git a/t/op/pack.t b/t/op/pack.t
index f2f858296f..53b001d4ff 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
     require Config; import Config;
 }
 
diff --git a/t/op/pat.t b/t/op/pat.t
index b56f7b4009..b2c0e055fe 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -8,7 +8,7 @@ print "1..185\n";
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = "../lib" if -d "../lib";
+    unshift @INC, "../lib" if -d "../lib";
 }
 eval 'use Config';          #  Defaults assumed if this fails
 
diff --git a/t/op/quotemeta.t b/t/op/quotemeta.t
index 98265a88d9..60e5b7be05 100755
--- a/t/op/quotemeta.t
+++ b/t/op/quotemeta.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
     require Config; import Config;
 }
 
diff --git a/t/op/rand.t b/t/op/rand.t
index 2f02d344fc..97019bb099 100755
--- a/t/op/rand.t
+++ b/t/op/rand.t
@@ -17,7 +17,7 @@
 
 BEGIN {
     chdir "t" if -d "t";
-    @INC = "../lib" if -d "../lib";
+    unshift @INC, "../lib" if -d "../lib";
 }
 
 use strict;
diff --git a/t/op/regexp.t b/t/op/regexp.t
index 11b3ee31da..98d998d9e5 100755
--- a/t/op/regexp.t
+++ b/t/op/regexp.t
@@ -31,7 +31,7 @@ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
 }
 
 $iters = shift || 1;		# Poor man performance suite, 10000 is OK.
diff --git a/t/op/runlevel.t b/t/op/runlevel.t
index bff3c363ac..623ca42d54 100755
--- a/t/op/runlevel.t
+++ b/t/op/runlevel.t
@@ -7,7 +7,7 @@
 ##
 
 chdir 't' if -d 't';
-@INC = "../lib";
+unshift @INC, "../lib";
 $Is_VMS = $^O eq 'VMS';
 $Is_MSWin32 = $^O eq 'MSWin32';
 $ENV{PERL5LIB} = "../lib" unless $Is_VMS;
diff --git a/t/op/sort.t b/t/op/sort.t
index 4de5cce640..27c77a4fc4 100755
--- a/t/op/sort.t
+++ b/t/op/sort.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 print "1..37\n";
 
diff --git a/t/op/stat.t b/t/op/stat.t
index 2207b40e30..e989064f1a 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 use Config;
diff --git a/t/op/subst.t b/t/op/subst.t
index bfca868e4d..65deab2ef8 100755
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
     require Config; import Config;
 }
 
diff --git a/t/op/subst_amp.t b/t/op/subst_amp.t
index e5e31f5257..e2e7c0e542 100755
--- a/t/op/subst_amp.t
+++ b/t/op/subst_amp.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
     require Config; import Config;
 }
 
diff --git a/t/op/taint.t b/t/op/taint.t
index e77d5d1a04..e25d4e0ef0 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -9,7 +9,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
 }
 
 use strict;
diff --git a/t/op/tie.t b/t/op/tie.t
index 451dee07b3..daec685d8d 100755
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -6,7 +6,7 @@
 # Currently it only tests the untie warning 
 
 chdir 't' if -d 't';
-@INC = "../lib";
+unshift @INC, "../lib";
 $ENV{PERL5LIB} = "../lib";
 
 $|=1;
diff --git a/t/op/tiearray.t b/t/op/tiearray.t
index 8e78b2f76b..25fda3fb03 100755
--- a/t/op/tiearray.t
+++ b/t/op/tiearray.t
@@ -3,7 +3,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 my %seen;
diff --git a/t/op/tiehandle.t b/t/op/tiehandle.t
index d7e6a78baf..6ae3faaaec 100755
--- a/t/op/tiehandle.t
+++ b/t/op/tiehandle.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 my @expect;
diff --git a/t/op/universal.t b/t/op/universal.t
index bde78fd04c..eb6ec3ce97 100755
--- a/t/op/universal.t
+++ b/t/op/universal.t
@@ -5,7 +5,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
 }
 
 print "1..72\n";