1N/A# Here we make sure File::Spec can properly deal with executables. 1N/A# VMS has some trouble with these. 1N/A or die "Can't open rel2abs2rel$$.pl file for script -- $!\n"; 1N/A print F qq(print "ok\\n"\n); 1N/A# Change 'perl' to './perl' so the shell doesn't go looking through PATH. 1N/A# Make a putative perl binary say "ok\n". We have to do it this way 1N/A# because the filespec of the binary may contain characters that a 1N/A# command interpreter considers special, so we can't use the obvious 1N/A# `$perl -le "print 'ok'"`. And, for portability, we can't use fork(). 1N/A or die "Can't open scratch file rel2abs2rel$$.tmp -- $!\n"; 1N/Aprint "# Checking manipulations of \$^X=$^X\n";