This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/common.pl must convert $^X to an absolute path before changing directory.
[perl5.git] / 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': $!";