From: Ian Lynagh <igloo@earth.li>
Date: Wed, 21 Apr 2010 17:13:39 +0000 (+0000)
Subject: Give the right exit code in darcs-all
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7dbbcfce6b8b0531362f5ac56eea7edf91c80da2;ds=sidebyside

Give the right exit code in darcs-all
Our END block was calling system, which alters $?. So now we save and
restore it.
---

diff --git a/darcs-all b/darcs-all
index c97729d..b190fa0 100644
--- a/darcs-all
+++ b/darcs-all
@@ -322,6 +322,8 @@ sub main {
 }
 
 END {
+    my $ec = $?;
+
     message "== Checking for old bytestring repo";
     if (-d "libraries/bytestring/_darcs") {
         if ((system "darcs annotate --repodir libraries/bytestring --match 'hash 20080118173113-3fd76-d5b74c04372a297b585ebea4e16d524551ce5035' > /dev/null 2> /dev/null") == 0) {
@@ -352,6 +354,8 @@ and say yes to each patch.
 ============================
 EOF
     }
+
+    $? = $ec;
 }
 
 main(@ARGV);