t/lib/common.pl must convert $^X to an absolute path before changing directory.
authorNicholas Clark <nick@ccl4.org>
Wed, 1 Sep 2010 20:24:54 +0000 (21:24 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 1 Sep 2010 20:24:54 +0000 (21:24 +0100)
Not every operating system has /proc/self/exe

t/lib/common.pl

index 7c98b13..5e28fc0 100644 (file)
@@ -11,7 +11,7 @@ BEGIN {
 
 use Config;
 use File::Path;
-use File::Spec::Functions;
+use File::Spec::Functions qw(catfile curdir rel2abs);
 
 use strict;
 use warnings;
@@ -55,6 +55,7 @@ foreach my $file (@w_files) {
     close F ;
 }
 
+$^X = rel2abs($^X);
 my $tempdir = tempfile;
 
 mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";