From dc56ab1ec5dc52417004ebf606dd4e8360c2c3cf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 31 Aug 2012 16:45:01 +0000
Subject: (extract_packages_to_install) drop unused parameter

---
 urpm.pm           | 2 +-
 urpm/main_loop.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/urpm.pm b/urpm.pm
index 3c91eed5..6f154da9 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -394,7 +394,7 @@ sub is_delta_installable {
 #- - for inst.list (cf flag disable_obsolete)
 #- sources is a hash of id -> source rpm filename.
 sub extract_packages_to_install {
-    my ($urpm, $sources, $_state) = @_;
+    my ($urpm, $sources) = @_;
     my %inst;
 
     foreach (keys %$sources) {
diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm
index cbffd911..08ac11ca 100644
--- a/urpm/main_loop.pm
+++ b/urpm/main_loop.pm
@@ -367,7 +367,7 @@ sub run {
         $callbacks->{post_download} and $callbacks->{post_download}->();
 
         #- extract packages that should be installed instead of upgraded,
-        my %transaction_sources_install = %{$urpm->extract_packages_to_install($transaction_sources, $state) || {}};
+        my %transaction_sources_install = %{$urpm->extract_packages_to_install($transaction_sources) || {}};
         $callbacks->{post_extract} and $callbacks->{post_extract}->($set, $transaction_sources, \%transaction_sources_install);
 
         #- verify packages
-- 
cgit v1.2.1