X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fdriver%2Fghc-consist.lprl;fp=ghc%2Fdriver%2Fghc-consist.lprl;h=535e7ec4212e7509f2c3684f5fade8b24d89c2af;hb=cf8bb9c9f0774e501feb6f165cae1a2c8410dcc5;hp=31bcdf453f70a2b495d3c60a93e6fce19c31efd7;hpb=48a35491c4a555baed7b4a0a0141654ec72dd671;p=ghc-hetmet.git

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)