summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-19 11:48:09 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-19 11:48:09 +0000
commit8788f9fa6d2a87e3761d943117ab6c88b948868f (patch)
tree833cbeffb7b20d90e2617363d8dc1e8c17719acb /urpm
parent8934ed0e04131f8ee2bf97e11f109fe039d079cb (diff)
downloadurpmi-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.pm10
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) . "]");