diff options
author | Ian Lynagh <ian@well-typed.com> | 2012-09-04 14:57:22 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2012-09-04 14:57:22 +0100 |
commit | 7d847e8222e901bd41919c6363c2cb6597c20d88 (patch) | |
tree | 23a5f8b501965221897a8f7c2e1433f121c716ee /sync-all | |
parent | 7b11baa68c36fdf5e441c76061fec3a38bc5dbbb (diff) | |
download | haskell-7d847e8222e901bd41919c6363c2cb6597c20d88.tar.gz |
Add "remote set-branches" support to sync-all
Diffstat (limited to 'sync-all')
-rwxr-xr-x | sync-all | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -209,7 +209,10 @@ sub scmall { } if (@_ < 1) { help(1); } $subcommand = shift; - if ($subcommand ne 'add' && $subcommand ne 'rm' && $subcommand ne 'set-url') { + if ($subcommand ne 'add' && + $subcommand ne 'rm' && + $subcommand ne 'set-branches' && + $subcommand ne 'set-url') { help(1); } while (@_ > 0 && $_[0] =~ /^-/) { @@ -398,6 +401,8 @@ sub scmall { @scm_args = ("remote", "add", $branch_name, $path); } elsif ($subcommand eq 'rm') { @scm_args = ("remote", "rm", $branch_name); + } elsif ($subcommand eq 'set-branches') { + @scm_args = ("remote", "set-branches", $branch_name); } elsif ($subcommand eq 'set-url') { @scm_args = ("remote", "set-url", $branch_name, $path); } |