diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-20 19:52:43 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-20 19:52:43 +0000 |
commit | ba03c65fb31fe4502eaed5aa39dbbdb1e4217876 (patch) | |
tree | 2d3d79e41bfbc44c50daa966af6d526956defbf7 | |
parent | 7cfd50b425c6e99f9d9623527890f1b546089983 (diff) | |
download | rpmdrake-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.pm | 5 |
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; } |