From f3f66a027365956353355a9dd81aa0932c8840b5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 26 Mar 2012 18:21:35 +0000
Subject: (get_pkgs,warn_about_media) pass a hash of options instead of a hash
 reference

also rename %opts as %options btw

(inspirated from mdv)
---
 Rpmdrake/gui.pm | 2 +-
 Rpmdrake/pkg.pm | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 6a667751..5b210869 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -626,7 +626,7 @@ sub is_updatable {
 sub pkgs_provider {
     my ($mode, %options) = @_;
     return if !$mode;
-    my $h = &get_pkgs(\%options);
+    my $h = &get_pkgs(%options);
     ($urpm, $descriptions) = @$h{qw(urpm update_descr)};
     $pkgs = $h->{all_pkgs};
     %filters = (
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index ea9e3e36..66b09b08 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -228,7 +228,7 @@ sub download_callback {
 my (@update_medias, $is_update_media_already_asked);
 
 sub warn_about_media {
-    my ($w, $opts) = @_;
+    my ($w, %options) = @_;
 
     return if $::MODE ne 'update';
     return if $::rpmdrake_options{'no-media-update'};
@@ -246,7 +246,7 @@ sub warn_about_media {
     $::rpmdrake_options{'no-media-update'} ||= 1;
 
 	    if (@update_medias > 0) {
-		if (!$opts->{skip_updating_mu} && !$is_update_media_already_asked) {
+		if (!$options{skip_updating_mu} && !$is_update_media_already_asked) {
               $is_update_media_already_asked = 1;
 		     $::rpmdrake_options{'no-confirmation'} or interactive_msg(N("Confirmation"),
 N("I need to contact the mirror to get latest update packages.
@@ -431,14 +431,14 @@ sub get_updates_list {
 }
 
 sub get_pkgs {
-    my ($opts) = @_;
+    my (%options) = @_;
     my $w = $::main_window;
 
     my $gurpm = Rpmdrake::gurpm->new(1 ? N("Please wait") : N("Package installation..."), N("Initializing..."), transient => $::main_window);
     my $_gurpm_clean_guard = before_leaving { undef $gurpm };
     #my $_flush_guard = Gtk2::GUI_Update_Guard->new;
 
-    warn_about_media($w, $opts);
+    warn_about_media($w, %options);
 
     my $urpm = open_urpmi_db(update => $probe_only_for_updates && !is_it_a_devel_distro());
 
-- 
cgit v1.2.1