From: sof <unknown>
Date: Thu, 22 Jan 1998 16:05:33 +0000 (+0000)
Subject: [project @ 1998-01-22 16:05:33 by sof]
X-Git-Tag: Approx_2487_patches~1062
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cf8bb9c9f0774e501feb6f165cae1a2c8410dcc5;p=ghc-hetmet.git

[project @ 1998-01-22 16:05:33 by sof]
* [cygwin32]: If consistency checker cannot find executable,
  try a little bit harder..
---

diff --git a/ghc/driver/ghc-consist.lprl b/ghc/driver/ghc-consist.lprl
index 31bcdf4..535e7ec 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)