From cf8bb9c9f0774e501feb6f165cae1a2c8410dcc5 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 22 Jan 1998 16:05:33 +0000
Subject: [PATCH] [project @ 1998-01-22 16:05:33 by sof] * [cygwin32]: If
consistency checker cannot find executable, try a little bit harder..
---
ghc/driver/ghc-consist.lprl | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/ghc/driver/ghc-consist.lprl b/ghc/driver/ghc-consist.lprl
index 31bcdf453f70..535e7ec4212e 100644
--- a/ghc/driver/ghc-consist.lprl
+++ b/ghc/driver/ghc-consist.lprl
@@ -13,12 +13,15 @@ sub chk_consistency_info {
# append .exe if it's not there under cygwin32
$executable = "${executable}.exe" if $TargetPlatform eq 'i386-unknown-cygwin32' &&
- $executable !~ /\.exe$/ ;
+ $executable !~ /\...*$/ ;
print STDERR "Checking consistency of: $executable\n" if $Verbose;
&tidy_up_and_die(1, "Panic: no such executable: $executable\n")
- if ! -x $executable;
+ if ( ! -x $executable ) && ( ! -B $executable );
+ # perl apparently determines whether something is executable
+ # by looking at the file suffix under win32/cygwin32 !?!
+ # Hence, we try binary files if (! -x) fails.
# by this point, consistency strings (with commas) have become
# local symbols (with .'s)
--
GitLab