projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make -rtsopts more flexible
[ghc-hetmet.git]
/
boot
diff --git
a/boot
b/boot
index
70d99e6
..
339f21d
100644
(file)
--- a/
boot
+++ b/
boot
@@
-11,7
+11,8
@@
system("/usr/bin/perl", "-w", "boot-pkgs") == 0
my $dir;
my $curdir;
my $dir;
my $curdir;
-$curdir = &cwd();
+$curdir = &cwd()
+ or die "Can't find current directory: $!";
# Check that we have all boot packages.
open PACKAGES, "< packages";
# Check that we have all boot packages.
open PACKAGES, "< packages";
@@
-45,13
+46,15
@@
close PACKAGES;
foreach $dir (".", glob("libraries/*/")) {
if (-f "$dir/configure.ac") {
print "Booting $dir\n";
foreach $dir (".", glob("libraries/*/")) {
if (-f "$dir/configure.ac") {
print "Booting $dir\n";
- chdir $dir;
- system "autoreconf";
- chdir $curdir;
+ chdir $dir or die "can't change to $dir: $!";
+ system("autoreconf") == 0
+ or die "Running autoreconf failed with exitcode $?";
+ chdir $curdir or die "can't change to $curdir: $!";
}
}
# Alas, darcs doesn't handle file permissions, so fix a few of them.
}
}
# Alas, darcs doesn't handle file permissions, so fix a few of them.
-for my $file ("boot", "darcs-all", "push-all", "validate") {
- chmod 0755, $file if -f $file;
+for my $file ("boot", "darcs-all", "validate") {
+ chmod 0755, $file if -f $file
+ or die "Can't chmod 0755 $file: $!";
}
}