X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=runtests.SH;h=bab27e9fecc4df69bfa65f43e8eaef1260b4ffff;hb=716b4790df6f17d149d5436bbd66ba94395be359;hp=1219bc04f5bc2c4ca861d36016a1619b255ee381;hpb=12a670244c7ca1a343447e9fd9496438a372a536;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/runtests.SH b/runtests.SH
index 1219bc0..bab27e9 100644
--- 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