From ba03c65fb31fe4502eaed5aa39dbbdb1e4217876 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:43 +0000
Subject: (is_locale_available) perl_checker fixes

---
 Rpmdrake/gui.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Rpmdrake')

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index ee5b96b1..c1dc48c5 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -682,9 +682,10 @@ sub closure_removal {
 }
 
 sub is_locale_available {
-    any { $urpm->{depslist}[$_]->flag_selected } keys %{$urpm->{provides}{$_[0]} || {}} and return 1;
+    my ($name) = @_;
+    any { $urpm->{depslist}[$_]->flag_selected } keys %{$urpm->{provides}{$name} || {}} and return 1;
     my $found;
-    open_rpm_db()->traverse_tag('name', [ $_ ], sub { $found ||= 1 });
+    open_rpm_db()->traverse_tag('name', [ $name ], sub { $found ||= 1 });
     return $found;
 }
 
-- 
cgit v1.2.1