rel2abs2rel.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# Here we make sure File::Spec can properly deal with executables.
# VMS has some trouble with these.
? (tests => 5)
);
local *F;
}
END {
}
use Config;
# Change 'perl' to './perl' so the shell doesn't go looking through PATH.
sub safe_rel {
return $perl;
}
# Make a putative perl binary say "ok\n". We have to do it this way
# because the filespec of the binary may contain characters that a
# command interpreter considers special, so we can't use the obvious
# `$perl -le "print 'ok'"`. And, for portability, we can't use fork().
sub sayok{
my $perl = shift;
local *F;
local $/ = undef;
my $output = <F>;
return $output;
}
print "# Checking manipulations of \$^X=$^X\n";