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

27 files changed, 27 insertions, 27 deletions

diff --git a/t/op/alarm.t b/t/op/alarm.t
index 82691c5cf2..28cc65cf7c 100644
--- 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 bfab9e071b..262ebbab16 100644
--- 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 8c82d112d6..9331fce960 100644
--- 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 9e81f590ed..abcc6297df 100644
--- 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 7129e47a88..7ce2670075 100644
--- 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 012166e95c..49c0de33a4 100644
--- 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 5a03e63e68..9961072d7c 100644
--- 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 afca57bf7b..356eb43fb3 100644
--- 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 dc2631e7fa..008aae8450 100644
--- 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 91087b806f..8dbf004dce 100644
--- 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 5cf6664d12..72c7a2a727 100644
--- 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 b33f0efc99..5af8538b27 100644
--- 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 af0fa183aa..cbf44ae72b 100644
--- 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 563e444af2..86fb46286b 100644
--- 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 dc49f1e70c..3ce74864d6 100644
--- 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 23f1b51a2c..11cb454ee8 100644
--- 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 0c5619f1c2..db98fffef8 100644
--- 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 a152d2daf6..be7636dcc2 100644
--- 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 7f9ee65e50..73c3f3a597 100644
--- 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 2ad7a9cf15..dabc90e066 100644
--- 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 1994dd2131..d61c373b82 100644
--- 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 99f075fcf1..f9c67703cc 100644
--- 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 bbd63725cf..a5f6373b9a 100644
--- 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 3b8df477f8..ba757e43fb 100644
--- 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 7602149909..892b6469ef 100644
--- 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 5f2ffa6299..d451cd56dd 100644
--- 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 1e8eb44d94..a0f2c67638 100644
--- 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";
 }