X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/12a670244c7ca1a343447e9fd9496438a372a536..7259d778cc13ce118e31fad7e1b91f23fc1b8e97:/runtests.SH

diff --git a/runtests.SH b/runtests.SH
old mode 100644
new mode 100755
index 1219bc0..bab27e9
--- a/runtests.SH
+++ b/runtests.SH
@@ -28,11 +28,6 @@ case \$# in
 	;;
 esac
 
-if test X"\$PERL" = X; then
-    echo "please supply PERL in the environment"
-    exit 1
-fi
-
 case \$1 in
     tty)
 	tty=Y
@@ -57,9 +52,12 @@ if test X"\$TESTFILE" = X; then
     TESTFILE=TEST
 fi
 
+if test X"\$PERL" = X; then
+    PERL=./perl$_exe
+    export PERL
+fi
+
 cd t
-rm -f \$PERL
-$lns ../\$PERL \$PERL
 
 # The second branch is for testing without a tty or controlling terminal,
 # see t/op/stat.t
@@ -68,6 +66,8 @@ if test \$tty = Y; then
 else
     PERL_SKIP_TTY_TEST=1 \$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES
 fi
+
+echo "Ran tests" > rantests
 !GROK!THIS!
 $eunicefix runtests
 chmod +x runtests