From b3233fbc8b513a0a0dc8fdeb72f3ff9a1a6ce260 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 17 May 2008 14:21:12 +0000 Subject: [PATCH] Teach push-all how to send as well --- push-all | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/push-all b/push-all index 3f3515e..2ce0a3d 100644 --- a/push-all +++ b/push-all @@ -13,8 +13,8 @@ my $ignore_failure = 0; my $checked_out = 0; # --boot-only says we only want to push bootlibs, not extralibs my $boot_only = 0; -# --push or --pull? -my $push_pull = "push"; +# --push or --pull or --send? +my $push_pull_send = "push"; sub message { if ($verbose) { @@ -34,7 +34,7 @@ sub darcs { } sub darcs_push { - darcs ($push_pull, "--no-set-default", @_); + darcs ($push_pull_send, "--no-set-default", @_); } sub pushall { @@ -87,10 +87,13 @@ sub main { $boot_only = 1; } elsif ($arg eq "--push") { - $push_pull = "push"; + $push_pull_send = "push"; } elsif ($arg eq "--pull") { - $push_pull = "pull"; + $push_pull_send = "pull"; + } + elsif ($arg eq "--send") { + $push_pull_send = "send"; } else { $reporoot = $arg; -- 1.7.10.4