(get_pkgs) do not pass a useless parameter

2 files changed, 3 insertions, 3 deletions

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 6bce5bea..8d82f42a 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -428,7 +428,7 @@ sub switch_pkg_list_mode {
 sub pkgs_provider {
     my ($options, $mode, %options) = @_;
     return if !$mode;
-    my $h = &get_pkgs($urpm, $options); # was given (1, @_) for updates
+    my $h = &get_pkgs($options); # was given (1, @_) for updates
     ($urpm, $descriptions) = @$h{qw(urpm update_descr)};
     $pkgs = $h->{all_pkgs};
     %filter_methods = (
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 200ece85..24940866 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -221,7 +221,7 @@ Then, restart %s.", $rpmdrake::myname_update)), myexit(-1);
 
 our $probe_only_for_updates;
 sub get_pkgs {
-    my ($urpm, $opts) = @_;
+    my ($opts) = @_;
     my %update_descr;
     @update_medias = ();
     my $w = $::main_window;
@@ -231,7 +231,7 @@ sub get_pkgs {
     my $_flush_guard = Gtk2::GUI_Update_Guard->new;
 
     my $error_happened;
-    $urpm = urpm->new;
+    my $urpm = urpm->new;
     $urpm->{fatal} = sub {
         $error_happened = 1;
         interactive_msg(N("Fatal error"),