diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-19 11:48:09 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-19 11:48:09 +0000 |
| commit | 8788f9fa6d2a87e3761d943117ab6c88b948868f (patch) | |
| tree | 833cbeffb7b20d90e2617363d8dc1e8c17719acb /urpm | |
| parent | 8934ed0e04131f8ee2bf97e11f109fe039d079cb (diff) | |
| download | urpmi-8788f9fa6d2a87e3761d943117ab6c88b948868f.tar urpmi-8788f9fa6d2a87e3761d943117ab6c88b948868f.tar.gz urpmi-8788f9fa6d2a87e3761d943117ab6c88b948868f.tar.bz2 urpmi-8788f9fa6d2a87e3761d943117ab6c88b948868f.tar.xz urpmi-8788f9fa6d2a87e3761d943117ab6c88b948868f.zip | |
(find_packages_to_remove) Revert "help perl_checker"
This reverts commit r2945 from Feb 14 2012
(perl_checker has better fake packages now)
Diffstat (limited to 'urpm')
| -rw-r--r-- | urpm/select.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/urpm/select.pm b/urpm/select.pm index 02cadbde..fcde22d0 100644 --- a/urpm/select.pm +++ b/urpm/select.pm @@ -413,7 +413,7 @@ sub find_packages_to_remove { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; $p->fullname eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, (removed => 1)); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -426,7 +426,7 @@ sub find_packages_to_remove { my ($p) = @_; my ($name, $version, $release) = $p->fullname; "$name-$version-$release" eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, (removed => 1)); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -439,7 +439,7 @@ sub find_packages_to_remove { my ($p) = @_; my ($name, $version) = $p->fullname; "$name-$version" eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, (removed => 1)); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -450,7 +450,7 @@ sub find_packages_to_remove { $db->traverse_tag('name', [ $_ ], sub { my ($p) = @_; $p->name eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, (removed => 1)); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -477,7 +477,7 @@ sub find_packages_to_remove { my ($p) = @_; my $f = scalar $p->fullname; $f =~ $qmatch or return; - $urpm->resolve_rejected($db, $state, $p, (removed => 1)); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, $f; }); $urpm->{log}("...done, packages found [" . join(' ', @m) . "]"); |