aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-20 19:52:43 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-20 19:52:43 +0000
commitba03c65fb31fe4502eaed5aa39dbbdb1e4217876 (patch)
tree2d3d79e41bfbc44c50daa966af6d526956defbf7
parent7cfd50b425c6e99f9d9623527890f1b546089983 (diff)
downloadrpmdrake-ba03c65fb31fe4502eaed5aa39dbbdb1e4217876.tar
rpmdrake-ba03c65fb31fe4502eaed5aa39dbbdb1e4217876.tar.gz
rpmdrake-ba03c65fb31fe4502eaed5aa39dbbdb1e4217876.tar.bz2
rpmdrake-ba03c65fb31fe4502eaed5aa39dbbdb1e4217876.tar.xz
rpmdrake-ba03c65fb31fe4502eaed5aa39dbbdb1e4217876.zip
(is_locale_available) perl_checker fixes
-rw-r--r--Rpmdrake/gui.pm5
1 files changed, 3 insertions, 2 deletions
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;
}