t/lib/common.pl must convert $^X to an absolute path before changing directory.

Not every operating system has /proc/self/exe

1 files changed, 2 insertions, 1 deletions

diff --git a/t/lib/common.pl b/t/lib/common.pl
index 7c98b13c70..5e28fc0738 100644
--- a/t/lib/common.pl
+++ b/t/lib/common.pl
@@ -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': $!";