From 1e44bc5b945c18e71117fd3653f1c30c54b52794 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 31 Aug 2012 16:45:40 +0000
Subject: (removed_packages) kill unused parameter

---
 urpm/select.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'urpm/select.pm')

diff --git a/urpm/select.pm b/urpm/select.pm
index 67fe6546..3f4ae577 100644
--- a/urpm/select.pm
+++ b/urpm/select.pm
@@ -538,7 +538,7 @@ sub find_packages_to_remove {
 	find_removed_from_basesystem($urpm, $db, $state, $options{callback_base})
 	    or return ();
     }
-    removed_packages($urpm, $state);
+    removed_packages($state);
 }
 
 sub find_removed_from_basesystem {
@@ -555,7 +555,7 @@ sub find_removed_from_basesystem {
 sub _prohibit_packages_that_would_be_removed {
     my ($urpm, $db, $state) = @_;
 
-    my @to_remove = removed_packages($urpm, $state) or return 1;
+    my @to_remove = removed_packages($state) or return 1;
 
     my @dont_remove = ('basesystem', 'basesystem-minimal', 
 		       split /,\s*/, $urpm->{global_config}{'prohibit-remove'});
@@ -647,7 +647,7 @@ sub was_pkg_name_installed {
 }
 
 sub removed_packages {
-    my (undef, $state) = @_;
+    my ($state) = @_;
     grep {
 	$state->{rejected}{$_}{removed} && !$state->{rejected}{$_}{obsoleted};
     } keys %{$state->{rejected} || {}};
@@ -677,7 +677,7 @@ sub conflicting_packages_msg {
 
 sub removed_packages_msgs {
     my ($urpm, $state) = @_;
-    map { translate_why_removed_one($urpm, $state, $_) } sort(removed_packages($urpm, $state));
+    map { translate_why_removed_one($urpm, $state, $_) } sort(removed_packages($state));
 }
 
 sub translate_why_removed {
-- 
cgit v1.2.1