From e2d2b4b764c24e638aebc939f94032ce57059b00 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 3 Nov 2000 11:25:35 +0000
Subject: [PATCH] [project @ 2000-11-03 11:25:35 by simonmar] Prepend "./" to
 the command to run only if the file exists in the current
 directory, rather than based on whether the command begins
 with a ''/'.  This means that 'make HC=ghc-4.08.1' in
 ghc/tests works as expected.

---
 glafp-utils/runstdtest/runstdtest.prl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 1b33388..b54cd04 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -73,7 +73,7 @@ $CacheProf = 'no';
 die "$Pgm: program to run not given as first argument\n" if $#ARGV < 0;
 $ToRun = $ARGV[0]; shift(@ARGV);
 # avoid picking up same-named thing from somewhere else on $PATH...
-$ToRun = "./$ToRun" if $ToRun !~ /^\//;
+$ToRun = "./$ToRun" if -e "./$ToRun";
 
 arg: while ($_ = $ARGV[0]) {
     shift(@ARGV);
-- 
1.7.10.4