X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9988b539d419b6c4e886f8919681acc06cd5d04a..ebd0282e4fcbe396ff48cea64721be3131be8a6e:/runtests.SH?ds=sidebyside

diff --git a/runtests.SH b/runtests.SH
old mode 100644
new mode 100755
index 3b0f9b7..24e1ffa
--- a/runtests.SH
+++ b/runtests.SH
@@ -1,3 +1,5 @@
+#!/bin/sh
+
 case $PERL_CONFIG_SH in
 '')
     if test ! -f config.sh; then
@@ -28,11 +30,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
@@ -53,21 +50,26 @@ case \$1 in
 	;;
 esac
 
-if test X"\$TESTFILE" == X; then
+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
-if test \$tty == Y; then
+if test \$tty = Y; then
     \$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES </dev/tty
 else
     PERL_SKIP_TTY_TEST=1 \$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES
 fi
+
+echo "Ran tests" > rantests
 !GROK!THIS!
 $eunicefix runtests
 chmod +x runtests