Test preamble: unify chdir 't' if -d 't';

diff --git a/t/bigmem/index.t b/t/bigmem/index.t
index fdd502c..48c2242 100644 (file)
--- a/t/bigmem/index.t
+++ b/t/bigmem/index.t
@@ -1,6 +1,6 @@
 #!perl
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     unshift @INC, "../lib";
 }
 

diff --git a/t/bigmem/pos.t b/t/bigmem/pos.t
index aad93f6..31cf756 100644 (file)
--- a/t/bigmem/pos.t
+++ b/t/bigmem/pos.t
@@ -1,6 +1,6 @@
 #!perl
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     unshift @INC, "../lib";
     require './test.pl';
 }

diff --git a/t/bigmem/read.t b/t/bigmem/read.t
index b29c097..773df3f 100644 (file)
--- a/t/bigmem/read.t
+++ b/t/bigmem/read.t
@@ -1,6 +1,6 @@
 #!perl
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     unshift @INC, "../lib";
 }
 

diff --git a/t/bigmem/regexp.t b/t/bigmem/regexp.t
index d5496f1..c2a04b1 100644 (file)
--- a/t/bigmem/regexp.t
+++ b/t/bigmem/regexp.t
@@ -1,6 +1,6 @@
 #!perl
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     unshift @INC, "../lib";
     require './test.pl';
 }

diff --git a/t/bigmem/vec.t b/t/bigmem/vec.t
index bf3c513..12d3fed 100644 (file)
--- a/t/bigmem/vec.t
+++ b/t/bigmem/vec.t
@@ -1,6 +1,6 @@
 #!perl
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     unshift @INC, "../lib";
 }
 

diff --git a/t/comp/hints.t b/t/comp/hints.t
index 307f298..0f52609 100644 (file)
--- a/t/comp/hints.t
+++ b/t/comp/hints.t
@@ -4,7 +4,7 @@
 
 BEGIN {
     @INC = qw(. ../lib ../ext/re);
-    chdir 't';
+    chdir 't' if -d 't';
 }
 
 BEGIN { print "1..31\n"; }

diff --git a/t/comp/parser.t b/t/comp/parser.t
index c5cff29..ffa4dff 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -5,7 +5,7 @@
 
 BEGIN {
     @INC = qw(. ../lib);
-    chdir 't';
+    chdir 't' if -d 't';
 }
 
 print "1..170\n";

diff --git a/t/io/defout.t b/t/io/defout.t
index 2cb7b9f..a70fb6f 100644 (file)
--- a/t/io/defout.t
+++ b/t/io/defout.t
@@ -7,7 +7,7 @@
 # it probably needs expanding at some point to cover other stuff.
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 2802ae2..a1437ed 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -5,7 +5,7 @@
 # of their own.
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/mro/basic.t b/t/mro/basic.t
index 5625b51..b257844 100644 (file)
--- a/t/mro/basic.t
+++ b/t/mro/basic.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require q(./test.pl);
 }

diff --git a/t/mro/isa_aliases.t b/t/mro/isa_aliases.t
index 2073e5e..6ce81d1 100644 (file)
--- a/t/mro/isa_aliases.t
+++ b/t/mro/isa_aliases.t
@@ -1,6 +1,6 @@
 #!./perl
 
-BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' }
+BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' }
 
 plan 13;
 

diff --git a/t/mro/isa_aliases_utf8.t b/t/mro/isa_aliases_utf8.t
index ef715a2..721a491 100644 (file)
--- a/t/mro/isa_aliases_utf8.t
+++ b/t/mro/isa_aliases_utf8.t
@@ -1,6 +1,6 @@
 #!./perl
 
-BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' }
+BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' }
 
 use utf8;
 use open qw( :utf8 :std );

diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index e177d70..ccae4ef 100644 (file)
--- a/t/mro/next_edgecases.t
+++ b/t/mro/next_edgecases.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" }
+BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" }
 
 plan(tests => 12);
 

diff --git a/t/mro/next_edgecases_utf8.t b/t/mro/next_edgecases_utf8.t
index ba6ff8b..3546a70 100644 (file)
--- a/t/mro/next_edgecases_utf8.t
+++ b/t/mro/next_edgecases_utf8.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" }
+BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" }
 
 use utf8;
 use open qw( :utf8 :std );

diff --git a/t/op/alarm.t b/t/op/alarm.t
index 82691c5..28cc65c 100644 (file)
--- a/t/op/alarm.t
+++ b/t/op/alarm.t
@@ -1,7 +1,7 @@
 #!./perl 
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/blocks.t b/t/op/blocks.t
index bfab9e0..262ebba 100644 (file)
--- a/t/op/blocks.t
+++ b/t/op/blocks.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
 }

diff --git a/t/op/current_sub.t b/t/op/current_sub.t
index 8c82d11..9331fce 100644 (file)
--- a/t/op/current_sub.t
+++ b/t/op/current_sub.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = qw(../lib);
     require './test.pl';
     plan (tests => 17);

diff --git a/t/op/dbm.t b/t/op/dbm.t
index 9e81f59..abcc629 100644 (file)
--- a/t/op/dbm.t
+++ b/t/op/dbm.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 

diff --git a/t/op/defined.t b/t/op/defined.t
index 7129e47..7ce2670 100644 (file)
--- a/t/op/defined.t
+++ b/t/op/defined.t
@@ -1,6 +1,6 @@
 #!perl
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
 }
 

diff --git a/t/op/do.t b/t/op/do.t
index 012166e..49c0de3 100644 (file)
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -1,7 +1,7 @@
 #!./perl -w
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/evalbytes.t b/t/op/evalbytes.t
index 5a03e63..9961072 100644 (file)
--- a/t/op/evalbytes.t
+++ b/t/op/evalbytes.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/fh.t b/t/op/fh.t
index afca57b..356eb43 100644 (file)
--- a/t/op/fh.t
+++ b/t/op/fh.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/groups.t b/t/op/groups.t
index dc2631e..008aae8 100644 (file)
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -10,7 +10,7 @@ BEGIN {
     $ENV{LC_ALL} = "C"; # so that external utilities speak English
     $ENV{LANGUAGE} = 'C'; # GNU locale extension
 
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
     skip_all_if_miniperl("no dynamic loading on miniperl, no POSIX");

diff --git a/t/op/hash-rt85026.t b/t/op/hash-rt85026.t
index 91087b8..8dbf004 100644 (file)
--- a/t/op/hash-rt85026.t
+++ b/t/op/hash-rt85026.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 BEGIN {
-  chdir 't';
+  chdir 't' if -d 't';
   @INC = '../lib';
   require './test.pl';
   skip_all_without_dynamic_extension("Devel::Peek");

diff --git a/t/op/lc.t b/t/op/lc.t
index 5cf6664..72c7a2a 100644 (file)
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -3,7 +3,7 @@
 # This file is intentionally encoded in latin-1.
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
     require Config; import Config;

diff --git a/t/op/lex.t b/t/op/lex.t
index b33f0ef..5af8538 100644 (file)
--- a/t/op/lex.t
+++ b/t/op/lex.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-BEGIN { chdir 't'; require './test.pl'; }
+BEGIN { chdir 't' if -d 't'; require './test.pl'; }
 
 plan(tests => 8);
 

diff --git a/t/op/lexsub.t b/t/op/lexsub.t
index af0fa18..cbf44ae 100644 (file)
--- a/t/op/lexsub.t
+++ b/t/op/lexsub.t
@@ -1,7 +1,7 @@
 #!perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
     *bar::is = *is;

diff --git a/t/op/packagev.t b/t/op/packagev.t
index 563e444..86fb462 100644 (file)
--- a/t/op/packagev.t
+++ b/t/op/packagev.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = qw '../lib ../cpan/version/lib';
     require './test.pl';
 }

diff --git a/t/op/qr.t b/t/op/qr.t
index dc49f1e..3ce7486 100644 (file)
--- a/t/op/qr.t
+++ b/t/op/qr.t
@@ -3,7 +3,7 @@
 use strict;
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
 }
 

diff --git a/t/op/read.t b/t/op/read.t
index 23f1b51..11cb454 100644 (file)
--- a/t/op/read.t
+++ b/t/op/read.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/readline.t b/t/op/readline.t
index 0c5619f..db98fff 100644 (file)
--- a/t/op/readline.t
+++ b/t/op/readline.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
 }

diff --git a/t/op/require_errors.t b/t/op/require_errors.t
index a152d2d..be7636d 100644 (file)
--- a/t/op/require_errors.t
+++ b/t/op/require_errors.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
 }
 

diff --git a/t/op/require_override.t b/t/op/require_override.t
index 7f9ee65..73c3f3a 100644 (file)
--- a/t/op/require_override.t
+++ b/t/op/require_override.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
 }
 

diff --git a/t/op/rt119311.t b/t/op/rt119311.t
index 2ad7a9c..dabc90e 100644 (file)
--- a/t/op/rt119311.t
+++ b/t/op/rt119311.t
@@ -22,7 +22,7 @@
 # outer sub.  Then we test a lexical directly inside the sub that DESTROY
 # calls.  Then we repeat with formats.
 
-BEGIN { chdir 't'; require './test.pl' }
+BEGIN { chdir 't' if -d 't'; require './test.pl' }
 plan 22;
 
 sub foo {

diff --git a/t/op/select.t b/t/op/select.t
index 1994dd2..d61c373 100644 (file)
--- a/t/op/select.t
+++ b/t/op/select.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
 }
 

diff --git a/t/op/signatures.t b/t/op/signatures.t
index 99f075f..f9c6770 100644 (file)
--- a/t/op/signatures.t
+++ b/t/op/signatures.t
@@ -1,7 +1,7 @@
 #!perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index bbd6372..a5f6373 100644 (file)
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
 }

diff --git a/t/op/svleak.t b/t/op/svleak.t
index 3b8df47..ba757e4 100644 (file)
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -5,7 +5,7 @@
 # see if the count increases.
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 

diff --git a/t/op/unlink.t b/t/op/unlink.t
index 7602149..892b646 100644 (file)
--- a/t/op/unlink.t
+++ b/t/op/unlink.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/upgrade.t b/t/op/upgrade.t
index 5f2ffa6..d451cd5 100644 (file)
--- a/t/op/upgrade.t
+++ b/t/op/upgrade.t
@@ -5,7 +5,7 @@
 # build or testsuite that upgraded an NV to an RV
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/op/while.t b/t/op/while.t
index 1e8eb44..a0f2c67 100644 (file)
--- a/t/op/while.t
+++ b/t/op/while.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = "../lib";
     require "./test.pl";
 }

diff --git a/t/re/reg_eval_scope.t b/t/re/reg_eval_scope.t
index 0eaeeb9..4243f87 100644 (file)
--- a/t/re/reg_eval_scope.t
+++ b/t/re/reg_eval_scope.t
@@ -3,7 +3,7 @@
 # Test scoping issues with embedded code in regexps.
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc(qw(lib ../lib));
 }

diff --git a/t/run/dtrace.t b/t/run/dtrace.t
index 0992cd5..2140973 100644 (file)
--- a/t/run/dtrace.t
+++ b/t/run/dtrace.t
@@ -4,7 +4,7 @@ my $Perl;
 my $dtrace;
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 

diff --git a/t/run/script.t b/t/run/script.t
index 2553e00..fa61a2c 100644 (file)
--- a/t/run/script.t
+++ b/t/run/script.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';       # for which_perl() etc
     plan(3);

diff --git a/t/run/switchd-78586.t b/t/run/switchd-78586.t
index 02e0b25..d19231f 100644 (file)
--- a/t/run/switchd-78586.t
+++ b/t/run/switchd-78586.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     $^P = 0x122;
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = ('../lib', 'lib');
     require './test.pl';
 }

diff --git a/t/run/switcht.t b/t/run/switcht.t
index fd81885..01b9f2f 100644 (file)
--- a/t/run/switcht.t
+++ b/t/run/switcht.t
@@ -1,7 +1,7 @@
 #!./perl -t
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }

diff --git a/t/uni/lex_utf8.t b/t/uni/lex_utf8.t
index 5ade620..6b155bb 100644 (file)
--- a/t/uni/lex_utf8.t
+++ b/t/uni/lex_utf8.t
@@ -5,7 +5,7 @@
 BEGIN {
     $| = 1;
 
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
     skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;

diff --git a/t/uni/overload.t b/t/uni/overload.t
index 0fd8de6..1ae460f 100644 (file)
--- a/t/uni/overload.t
+++ b/t/uni/overload.t
@@ -1,7 +1,7 @@
 #!perl -w
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
     require './test.pl';

diff --git a/t/uni/readline.t b/t/uni/readline.t
index 294262e..c733f69 100644 (file)
--- a/t/uni/readline.t
+++ b/t/uni/readline.t
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
 }