From 59f6feaef9cb5661c7bee377a02a1f60518580b7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 28 Nov 2006 15:17:11 +0000 Subject: --debug for all progs --- urpm/args.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'urpm') diff --git a/urpm/args.pm b/urpm/args.pm index 41ed2b1e..200f39fb 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -38,6 +38,11 @@ sub add_param_closure { } # options specifications for Getopt::Long + +my %options_spec_all = ( + 'debug' => sub { $urpm->{debug} = sub { print STDERR "$_[0]\n" } }, +); + my %options_spec = ( urpmi => { @@ -108,7 +113,6 @@ my %options_spec = ( }, 'bug=s' => \$options{bug}, 'env=s' => \$::env, - 'debug' => sub { $urpm->{debug} = sub { print STDERR "$_[0]\n" } }, 'verify-rpm!' => sub { $urpm->{options}{'verify-rpm'} = $_[1] }, 'strict-arch!' => sub { $urpm->{options}{'strict-arch'} = $_[1] }, 'norebuild!' => sub { $urpm->{options}{'build-hdlist-on-error'} = !$_[1] }, @@ -391,7 +395,7 @@ foreach my $k ("help|h", "wget", "curl", "prozilla", "proxy=s", "proxy-user=s", $options_spec{'urpmi.addmedia'}{$k} = $options_spec{'urpmi.update'}{$k}; } -foreach my $k ("probe-synthesis", "probe-hdlist", 'debug') +foreach my $k ("probe-synthesis", "probe-hdlist") { $options_spec{'urpmi.addmedia'}{$k} = $options_spec{urpme}{$k} = @@ -408,7 +412,7 @@ sub parse_cmdline { foreach my $k (keys %{$args{defaults} || {}}) { $options{$k} = $args{defaults}{$k}; } - my $ret = GetOptions(%{$options_spec{$tool}}); + my $ret = GetOptions(%{$options_spec{$tool}}, %options_spec_all); if ($tool ne 'urpmi.addmedia' && $options{probe_with} && !$options{usedistrib}) { die N("Can't use %s without %s", "--probe-$options{probe_with}", "--use-distrib"); -- cgit v1.2.1