summaryrefslogtreecommitdiffstats
path: root/urpme
diff options
context:
space:
mode:
Diffstat (limited to 'urpme')
-rw-r--r--urpme7
1 files changed, 6 insertions, 1 deletions
diff --git a/urpme b/urpme
index 6c914d71..1a7f0356 100644
--- a/urpme
+++ b/urpme
@@ -25,7 +25,7 @@ use URPM;
use URPM::Resolve;
use urpm;
-my (@nextargv, $root, $test, $parallel, $auto, $matches, $maymatch, @l);
+my (@nextargv, $root, $test, $parallel, $auto, $matches, $verbose, $maymatch, @l);
my $askok = N("Is this OK?");
# Translator: Add here the keys which might be pressed in the "No"-case.
my $noexpr = N("Nn");
@@ -42,6 +42,7 @@ usage:
") . N(" --auto - automatically select a package in choices.
") . N(" --test - verify if the installation can be achieved correctly.
") . N(" --parallel - distributed urpmi accross machines of alias.
+") . N(" -v - verbose mode.
") . N(" -a - select all packages matching expression.
");
exit(0);
@@ -58,6 +59,7 @@ while (defined($_ = shift @ARGV)) {
/^-(.*)$/ and do { foreach (split //, $1) {
/[\?h]/ and do { usage; next };
/a/ and do { $matches = 1; next };
+ /v/ and do { $verbose = 1; next };
die N("urpme: unknown option \"-%s\", check usage with --help\n", $1); } next };
@nextargv and do { my $r = shift @nextargv; $r and $$r = $_; next };
push @l, $_;
@@ -66,6 +68,9 @@ while (defined($_ = shift @ARGV)) {
my $urpm = new urpm;
my $state = {};
+#- remove verbose if not asked.
+$verbose or $urpm->{log} = sub {};
+
#- just configure parallel mode if available.
$parallel and $urpm->configure(synthesis => 'none',
root => $root,