git-push-all: dies if any git failed

Ensures that a failure is registered by myrepos if we couldn't push to a
remote.  And give up, rather than have it happen again as it probably
indicates a misconfiguration.

1 files changed, 10 insertions, 6 deletions

diff --git a/bin/git-push-all b/bin/git-push-all
index dec5eb0c..ec351c9c 100755
--- a/bin/git-push-all
+++ b/bin/git-push-all
@@ -68,16 +68,20 @@ if ( defined $pushDefault ) {
     # mode one: assume that there are read-only remotes
     print "DEBUG: pushing to pushDefault alone\n";
     foreach my $remote ( @pushRemotes ) {
-        print "DEBUG: pushing $remote\n";
-        system "git push --follow-tags $remote :"
-          unless ( $remote eq "dgit" );
+        unless ( $remote eq "dgit" ) {
+            print "DEBUG: pushing $remote\n";
+            system "git push --follow-tags $remote :";
+            exit 1 if ( $? != 0 );
+        }
     }
 } else {
     # mode two: assume we can write to all remotes
     print "DEBUG: pushing to all remotes\n";
     foreach my $remote ( @remotes ) {
-        print "DEBUG: pushing $remote\n";
-        system "git push --tags $remote :"
-          unless ( $remote eq "dgit" );
+        unless ( $remote eq "dgit" ) {
+            print "DEBUG: pushing $remote\n";
+            system "git push --tags $remote :";
+            exit 1 if ( $? != 0 );
+        }
     }
 }