new perldelta

[perl5.git] / runtests.SH

diff --git a/runtests.SH b/runtests.SH
old mode 100644 (file)
new mode 100755 (executable)
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