diff options
| author | simonmar <unknown> | 2000-11-03 11:25:35 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-11-03 11:25:35 +0000 |
| commit | e2d2b4b764c24e638aebc939f94032ce57059b00 (patch) | |
| tree | b1704ba3f293ee640cbc3722aa5de261542691b7 /glafp-utils | |
| parent | 98dbad1214b2c49919802e4e51559604fcb21f9e (diff) | |
| download | haskell-e2d2b4b764c24e638aebc939f94032ce57059b00.tar.gz | |
[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.
Diffstat (limited to 'glafp-utils')
| -rw-r--r-- | glafp-utils/runstdtest/runstdtest.prl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl index 1b33388cd2..b54cd04ed3 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); |