OK, so the name is a bit wrong now...
my $checked_out = 0;
# --core-only says we only want to push corelibs, not extralibs
my $core_only = 0;
my $checked_out = 0;
# --core-only says we only want to push corelibs, not extralibs
my $core_only = 0;
+# --push or --pull?
+my $push_pull = "push";
sub message {
if ($verbose) {
sub message {
if ($verbose) {
- darcs ("push", "--no-set-default", @_);
+ darcs ($push_pull, "--no-set-default", @_);
elsif ($arg eq "--core-only") {
$core_only = 1;
}
elsif ($arg eq "--core-only") {
$core_only = 1;
}
+ elsif ($arg eq "--push") {
+ $push_pull = "push";
+ }
+ elsif ($arg eq "--pull") {
+ $push_pull = "pull";
+ }
else {
$reporoot = $arg;
if (grep /^-q$/, @_) {
else {
$reporoot = $arg;
if (grep /^-q$/, @_) {