From: simonmar <unknown>
Date: Fri, 3 Nov 2000 11:25:35 +0000 (+0000)
Subject: [project @ 2000-11-03 11:25:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~3439
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e2d2b4b764c24e638aebc939f94032ce57059b00;p=ghc-hetmet.git

[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.
---

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);