} #}}}
sub rcs_update () { #{{{
- my @cmdline = ("bzr", $config{srcdir}, "update");
+ my @cmdline = ("bzr", "update", "--quiet", $config{srcdir});
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
$message = "no message given";
}
- my @cmdline = ("bzr", "commit", "-m", $message, "--author", $user,
+ my @cmdline = ("bzr", "commit", "--quiet", "-m", $message, "--author", $user,
$config{srcdir}."/".$file);
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
sub rcs_add ($) { # {{{
my ($file) = @_;
- my @cmdline = ("bzr", "add", "$config{srcdir}/$file");
+ my @cmdline = ("bzr", "add", "--quiet", "$config{srcdir}/$file");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}