From 13b713dc4315f11f9408f7c1995b1fd03a75c008 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 27 Oct 2005 12:13:27 +0000
Subject: Add API to have defaults in urpm::args

---
 urpm/args.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'urpm/args.pm')

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}});
 }
 
-- 
cgit v1.2.1