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

1 files changed, 1 insertions, 1 deletions

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;