summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-10-27 12:13:27 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-10-27 12:13:27 +0000
commit13b713dc4315f11f9408f7c1995b1fd03a75c008 (patch)
treea125cba03454d8a56c9d7dd0af4eed8d99d8ee6b
parentb85668183bfbd4a5ecec72d48827de63c491ff01 (diff)
downloadurpmi-13b713dc4315f11f9408f7c1995b1fd03a75c008.tar
urpmi-13b713dc4315f11f9408f7c1995b1fd03a75c008.tar.gz
urpmi-13b713dc4315f11f9408f7c1995b1fd03a75c008.tar.bz2
urpmi-13b713dc4315f11f9408f7c1995b1fd03a75c008.tar.xz
urpmi-13b713dc4315f11f9408f7c1995b1fd03a75c008.zip
Add API to have defaults in urpm::args
-rw-r--r--urpm/args.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/urpm/args.pm b/urpm/args.pm
index 89cf00a5..b41e24fe 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -362,6 +362,9 @@ foreach my $k ("help|h", "wget", "curl", "proxy=s", "proxy-user=s", "c", "f", "z
sub parse_cmdline {
my %args = @_;
$urpm = $args{urpm};
+ for my $k (keys %{$args{defaults} || {}}) {
+ $options{$k} = $args{defaults}{$k};
+ }
GetOptions(%{$options_spec{$tool}});
}