Commit 2555743c authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Check for ^M in packages file when booting

If we find one then we print an error message and fail.
parent 734ebccb
......@@ -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: $?";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment