summaryrefslogtreecommitdiffstats
path: root/urpm/args.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-14 15:33:06 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-14 15:33:06 +0000
commite531460387e068c8f52aa52eb2bfcda854b46489 (patch)
tree640b5454c258948cc33dbb09b48491a57243c1de /urpm/args.pm
parent0c8f651988b155d12deb3aea26c2f206648c61e5 (diff)
downloadurpmi-e531460387e068c8f52aa52eb2bfcda854b46489.tar
urpmi-e531460387e068c8f52aa52eb2bfcda854b46489.tar.gz
urpmi-e531460387e068c8f52aa52eb2bfcda854b46489.tar.bz2
urpmi-e531460387e068c8f52aa52eb2bfcda854b46489.tar.xz
urpmi-e531460387e068c8f52aa52eb2bfcda854b46489.zip
Fix the parsing of command-line options of urpmf when no option is specified
Diffstat (limited to 'urpm/args.pm')
-rw-r--r--urpm/args.pm23
1 files changed, 16 insertions, 7 deletions
diff --git a/urpm/args.pm b/urpm/args.pm
index 6dc6fb45..f9062727 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -116,17 +116,26 @@ my %options_spec = (
all => sub {
foreach my $k (qw(filename group size summary description sourcerpm
packager buildhost url provides requires files conflicts obsoletes))
- {
- $::params{$k} = 1;
- }
+ { $::params{$k} = 1; }
},
name => \$::params{filename},
- 'group|size|epoch|summary|description|sourcerpm|packager|buildhost|url|provides|requires|files|conflicts|obsoletes' => sub {
- $::params{$_[0]} = 1;
- },
+ group => \$::params{group},
+ size => \$::params{size},
+ epoch => \$::params{epoch},
+ summary => \$::params{summary},
+ description => \$::params{description},
+ sourcerpm => \$::params{sourcerpm},
+ packager => \$::params{packager},
+ buildhost => \$::params{buildhost},
+ url => \$::params{url},
+ provides => \$::params{provides},
+ requires => \$::params{requires},
+ files => \$::params{files},
+ conflicts => \$::params{conflicts},
+ obsoletes => \$::params{obsoletes},
i => sub { $::pattern = 'i' },
f => sub { $::full = 'full' },
- 'e=s' => sub { $::expr .= "($_[0])" },
+ 'e=s' => sub { $::expr .= "($_[1])" },
a => sub { $::expr .= ' && ' },
o => sub { $::expr .= ' || ' },
'<>' => sub {