From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 04:20:02 +0000 (+0000)
Subject: Now is Solaris if you start the t/perl in the t/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6469810f6a6c260f9afe551f64428890cbb5131c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';
 }