Now is Solaris if you start the t/perl in the t/

as "./perl", the $^X will be "../perl", not "./perl".

p4raw-id: //depot/perl@13255

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 51d4d6a..af2c168 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -1,7 +1,13 @@
 #!./perl
 
 BEGIN {
-    chdir '..' if -d '../pod' && -d '../t';
+    if (-d '../pod' && -d '../t') {
+       require File::Spec;
+       my ($v,$d,$f) = File::Spec->splitpath($^X);
+       $^X = File::Spec->catfile(File::Spec->curdir, $f)
+           if $^X eq File::Spec->catfile(File::Spec->updir, $f);
+       chdir '..';
+    }
     @INC = 'lib';
 }