Swap logic in BEGIN blocks to have Cwd's abs_path do the

translation *before* the chdir (), so it now DTRT

p4raw-id: //depot/perl@23957

15 files changed, 30 insertions, 30 deletions

diff --git a/lib/IPC/Run/t/adopt.t b/lib/IPC/Run/t/adopt.t
index 9fd1303ed0..7458758581 100644
--- a/lib/IPC/Run/t/adopt.t
+++ b/lib/IPC/Run/t/adopt.t
@@ -8,11 +8,11 @@ adopt.t - Test suite for IPC::Run::adopt
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/binmode.t b/lib/IPC/Run/t/binmode.t
index 1038a7d19e..cbfca0fb4d 100644
--- a/lib/IPC/Run/t/binmode.t
+++ b/lib/IPC/Run/t/binmode.t
@@ -8,11 +8,11 @@ binary.t - Test suite for IPC::Run binary functionality
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/bogus.t b/lib/IPC/Run/t/bogus.t
index 7718331c5f..176315b35a 100644
--- a/lib/IPC/Run/t/bogus.t
+++ b/lib/IPC/Run/t/bogus.t
@@ -8,11 +8,11 @@ bogus.t - test bogus file cases.
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/filter.t b/lib/IPC/Run/t/filter.t
index 6242ef083d..90126df611 100644
--- a/lib/IPC/Run/t/filter.t
+++ b/lib/IPC/Run/t/filter.t
@@ -8,11 +8,11 @@ filter.t - Test suite for IPC::Run filter scaffolding
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/harness.t b/lib/IPC/Run/t/harness.t
index 782338373a..e42ee18ba6 100644
--- a/lib/IPC/Run/t/harness.t
+++ b/lib/IPC/Run/t/harness.t
@@ -8,11 +8,11 @@ harness.t - Test suite for IPC::Run::harness
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/io.t b/lib/IPC/Run/t/io.t
index 8e656fb129..56a5c6fbd9 100644
--- a/lib/IPC/Run/t/io.t
+++ b/lib/IPC/Run/t/io.t
@@ -8,11 +8,11 @@ io.t - Test suite excercising IPC::Run::IO with IPC::Run::run.
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/kill_kill.t b/lib/IPC/Run/t/kill_kill.t
index cebdbe0ab5..cec0f6a675 100644
--- a/lib/IPC/Run/t/kill_kill.t
+++ b/lib/IPC/Run/t/kill_kill.t
@@ -8,11 +8,11 @@ kill_kill.t - Test suite IPC::Run->kill_kill
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/parallel.t b/lib/IPC/Run/t/parallel.t
index fac47b1fac..d178247a84 100644
--- a/lib/IPC/Run/t/parallel.t
+++ b/lib/IPC/Run/t/parallel.t
@@ -8,11 +8,11 @@ parallel.t - Test suite for running multiple processes in parallel.
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/pty.t b/lib/IPC/Run/t/pty.t
index 070767b0f0..83ad5beca6 100644
--- a/lib/IPC/Run/t/pty.t
+++ b/lib/IPC/Run/t/pty.t
@@ -25,11 +25,11 @@ further, but I have not the time.
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/pump.t b/lib/IPC/Run/t/pump.t
index 12a828415b..7878d786b2 100644
--- a/lib/IPC/Run/t/pump.t
+++ b/lib/IPC/Run/t/pump.t
@@ -8,11 +8,11 @@ pump.t - Test suite for IPC::Run::run, etc.
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/run.t b/lib/IPC/Run/t/run.t
index 7151222a90..130a18c977 100644
--- a/lib/IPC/Run/t/run.t
+++ b/lib/IPC/Run/t/run.t
@@ -8,11 +8,11 @@ run.t - Test suite for IPC::Run::run, etc.
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/signal.t b/lib/IPC/Run/t/signal.t
index 4ce2b87ede..399bd527e4 100644
--- a/lib/IPC/Run/t/signal.t
+++ b/lib/IPC/Run/t/signal.t
@@ -8,11 +8,11 @@ signal.t - Test suite IPC::Run->signal
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/timeout.t b/lib/IPC/Run/t/timeout.t
index 82e96b1911..394f10998d 100644
--- a/lib/IPC/Run/t/timeout.t
+++ b/lib/IPC/Run/t/timeout.t
@@ -8,11 +8,11 @@ timeout.t - Test suite for IPC::Run timeouts
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/timer.t b/lib/IPC/Run/t/timer.t
index e777fd9da6..85ab5cb65b 100644
--- a/lib/IPC/Run/t/timer.t
+++ b/lib/IPC/Run/t/timer.t
@@ -8,11 +8,11 @@ timer.t - Test suite for IPC::Run::Timer
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }
 
diff --git a/lib/IPC/Run/t/win32_compile.t b/lib/IPC/Run/t/win32_compile.t
index e5564985aa..a71a377df8 100644
--- a/lib/IPC/Run/t/win32_compile.t
+++ b/lib/IPC/Run/t/win32_compile.t
@@ -8,11 +8,11 @@ win32_compile.t - See if IPC::Run::Win32Helper compiles, even on Unix
 
 BEGIN { 
     if( $ENV{PERL_CORE} ) {
-        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
-        unshift @INC, 'lib', '../..';
 	use Cwd;
         $^X = Cwd::abs_path($^X);
 	$^X = qq("$^X") if $^X =~ /\s/;
+        chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+        unshift @INC, 'lib', '../..';
     }
 }