diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-14 15:33:06 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-14 15:33:06 +0000 |
| commit | e531460387e068c8f52aa52eb2bfcda854b46489 (patch) | |
| tree | 640b5454c258948cc33dbb09b48491a57243c1de /urpm | |
| parent | 0c8f651988b155d12deb3aea26c2f206648c61e5 (diff) | |
| download | urpmi-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')
| -rw-r--r-- | urpm/args.pm | 23 |
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 { |