diff options
author | Ian Lynagh <igloo@earth.li> | 2010-08-01 12:14:32 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2010-08-01 12:14:32 +0000 |
commit | 91987342587901e57f67b375dc9f9aa8e889f241 (patch) | |
tree | 5c19a7bc34f43978a7cd0252cf85d6f10b415d91 /boot-pkgs | |
parent | 20c633b040a53166431744a8b0a0f8bf440835d6 (diff) | |
download | haskell-91987342587901e57f67b375dc9f9aa8e889f241.tar.gz |
Add error checking to boot-pkgs script
Diffstat (limited to 'boot-pkgs')
-rw-r--r-- | boot-pkgs | 30 |
1 files changed, 20 insertions, 10 deletions
@@ -34,11 +34,14 @@ for $tarball (@tarballs) { &rmtree("libraries/$package") or die "Can't remove libraries/$package: $!"; } - mkdir "libraries/$package"; + mkdir "libraries/$package" + or die "Can't create libraries/$package: $!"; system ("sh", "-c", "cd 'libraries/$package' && { cat ../../$tarball | gzip -d | tar xf - ; } && mv */* .") == 0 or die "Failed to unpack $package"; - open STAMP, "> $stamp"; - close STAMP; + open STAMP, "> $stamp" + or die "Failed to open stamp file: $!"; + close STAMP + or die "Failed to close stamp file: $!"; } } } @@ -47,7 +50,8 @@ for $package (glob "libraries/*/") { $package =~ s/\/$//; my $pkgs = "$package/ghc-packages"; if (-f $pkgs) { - open PKGS, "< $pkgs"; + open PKGS, "< $pkgs" + or die "Failed to open $pkgs: $!"; while (<PKGS>) { chomp; if (/.+/) { @@ -76,9 +80,11 @@ for $package (@library_dirs) { $pkg =~ s#.*/##; $pkg =~ s/\.cabal$//; if (-f "$package/ghc-stage") { - open STAGE, "< $package/ghc-stage"; + open STAGE, "< $package/ghc-stage" + or die "Can't open $package/ghc-stage: $!"; $stage = int(<STAGE>); - close STAGE; + close STAGE + or die "Failed closing $package/ghc-stage: $!"; } else { $stage = 1; @@ -87,19 +93,23 @@ for $package (@library_dirs) { $top =~ s#[^/]+#..#g; print "Creating $package/ghc.mk\n"; - open GHCMK, "> $package/ghc.mk"; + open GHCMK, "> $package/ghc.mk" + or die "Opening $package/ghc.mk failed: $!"; print GHCMK "${package}_PACKAGE = ${pkg}\n"; print GHCMK "${package}_dist-install_GROUP = libraries\n"; print GHCMK "\$(eval \$(call build-package,${package},dist-install,${stage}))\n"; - close GHCMK; + close GHCMK + or die "Closing $package/ghc.mk failed: $!"; print "Creating $package/GNUmakefile\n"; - open GNUMAKEFILE, "> $package/GNUmakefile"; + open GNUMAKEFILE, "> $package/GNUmakefile" + or die "Opening $package/GNUmakefile failed: $!"; print GNUMAKEFILE "dir = ${package}\n"; print GNUMAKEFILE "TOP = ${top}\n"; print GNUMAKEFILE "include \$(TOP)/mk/sub-makefile.mk\n"; print GNUMAKEFILE "FAST_MAKE_OPTS += stage=0\n"; - close GNUMAKEFILE; + close GNUMAKEFILE + or die "Closing $package/GNUmakefile failed: $!"; } } } |