From 8788f9fa6d2a87e3761d943117ab6c88b948868f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 19 Mar 2012 11:48:09 +0000
Subject: (find_packages_to_remove) Revert "help perl_checker"

This reverts commit r2945 from Feb 14 2012
(perl_checker has better fake packages now)
---
 urpm/select.pm | 10 +++++-----
 1 file 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) . "]");
-- 
cgit v1.2.1