Add a --debug option to print internal callback (instead of using --verbose for that).

4 files changed, 5 insertions, 3 deletions

diff --git a/man/C/urpmf.8 b/man/C/urpmf.8
index 950e1cf6..e85cabd1 100644
--- a/man/C/urpmf.8
+++ b/man/C/urpmf.8
@@ -72,7 +72,8 @@ dependencies only in media marked as update.
 .IP "\fB\--url\fP"
 Prints and searches through url.
 .IP "\fB\--verbose\fP"
-Verbose mode with various messages.
+Verbose mode. urpmf will emit various messages related to the parsing of hdlist
+files for your media.
 .IP "\fB-i\fP"
 Ignore case distinctions in any patterns.
 .IP "\fB-q\fP"
diff --git a/po/fr.po b/po/fr.po
index e091af06..5386d3ea 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -1453,7 +1453,7 @@ msgid ""
 "callback is:\n"
 "%s\n"
 msgstr ""
-"Le callback est :\n"
+"La callback est :\n"
 "%s\n"
 
 #: ../urpmf:124 ../urpmi:212 ../urpmq:116
diff --git a/urpm/args.pm b/urpm/args.pm
index 1e0978f3..8e2e68cb 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -143,6 +143,7 @@ my %options_spec = (
 	},
 	buildhost => \$::params{buildhost},
 	conflicts => \$::params{conflicts},
+	debug => \$::debug,
 	description => \$::params{description},
 	epoch => \$::params{epoch},
 	files => \$::params{files},
diff --git a/urpmf b/urpmf
index 4c411ad4..bdbbcc6f 100755
--- a/urpmf
+++ b/urpmf
@@ -116,7 +116,7 @@ foreach (qw(filename group size epoch summary description sourcerpm packager bui
 $callback .= '
       1;
 }';
-$urpm->{log}(N("callback is:\n%s\n", $callback));
+$urpm->{error}(N("callback is:\n%s\n", $callback)) if our $debug;
 $callback = eval $callback;
 $@ and usage;