X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=boot;h=66bff3eb8f98a08eb81460b21110540fcfbe3a18;hb=679a7c41949c438c0a6ace92b0334bb795690738;hp=9d7eb38d80143fef793fd289d30d44df9232293d;hpb=a91df48bcf1a06dde529812c44bbceaee7c1fb10;p=ghc-hetmet.git

diff --git a/boot b/boot
index 9d7eb38..66bff3e 100755
--- a/boot
+++ b/boot
@@ -24,6 +24,24 @@ while ($#ARGV ne -1) {
     }
 }
 
+{
+    local $/ = undef;
+    open FILE, "packages" or die "Couldn't open file: $!";
+    binmode FILE;
+    my $string = <FILE>;
+    close FILE;
+
+    if ($string =~ /\r/) {
+        print STDERR <<EOF;
+Found ^M in packages.
+Perhaps you need to run
+    git config --global core.autocrlf false
+and re-check out the tree?
+EOF
+        exit 1;
+    }
+}
+
 # Create libraries/*/{ghc.mk,GNUmakefile}
 system("/usr/bin/perl", "-w", "boot-pkgs") == 0
     or die "Running boot-pkgs failed: $?";