diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2006-06-11 18:31:06 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2006-06-11 18:31:06 +0000 |
| commit | 1d648c332e21d8fac81b0fc442ffbaac27638902 (patch) | |
| tree | 6c152271c3e3c2ed8d0452b8f6512626235cc97f /urpm/args.pm | |
| parent | 99c59fd0f670418b96b90d44a07c6cfa4cef5d66 (diff) | |
| download | urpmi-1d648c332e21d8fac81b0fc442ffbaac27638902.tar urpmi-1d648c332e21d8fac81b0fc442ffbaac27638902.tar.gz urpmi-1d648c332e21d8fac81b0fc442ffbaac27638902.tar.bz2 urpmi-1d648c332e21d8fac81b0fc442ffbaac27638902.tar.xz urpmi-1d648c332e21d8fac81b0fc442ffbaac27638902.zip | |
- fix r36644, ensure urpm::args::parse_cmdline() return true if there is no error
Diffstat (limited to 'urpm/args.pm')
| -rw-r--r-- | urpm/args.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/urpm/args.pm b/urpm/args.pm index 7118635e..cfb7cff4 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -396,7 +396,7 @@ sub parse_cmdline { for my $k (keys %{$args{defaults} || {}}) { $options{$k} = $args{defaults}{$k}; } - GetOptions(%{$options_spec{$tool}}); + my $ret = GetOptions(%{$options_spec{$tool}}); if ($tool eq 'urpmf' && @ARGV && $ARGV[0] eq '--') { if (@ARGV == 2) { my $p = $ARGV[1]; @@ -406,11 +406,13 @@ sub parse_cmdline { $p =~ s/\+/\\+/g; } $::expr .= "m{$p}" . $::pattern; + $ret = 1; } else { die N("Too many arguments\n"); } } + $ret } 1; |