diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:33 +0000 |
| commit | 4cc88690c9c2385573b9a2bd1ac85fe3f174fca3 (patch) | |
| tree | 833c8044adb96f68170ef5152375fb1730acce43 /pm/MGATools | |
| parent | b24ba9733c0f506d56e66c0e8b6e131f98be5dc0 (diff) | |
| download | mgatools-4cc88690c9c2385573b9a2bd1ac85fe3f174fca3.tar mgatools-4cc88690c9c2385573b9a2bd1ac85fe3f174fca3.tar.gz mgatools-4cc88690c9c2385573b9a2bd1ac85fe3f174fca3.tar.bz2 mgatools-4cc88690c9c2385573b9a2bd1ac85fe3f174fca3.tar.xz mgatools-4cc88690c9c2385573b9a2bd1ac85fe3f174fca3.zip | |
(cleanrpmsrate) simplify
Diffstat (limited to 'pm/MGATools')
| -rw-r--r-- | pm/MGATools/rpmsrate.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 4e7a0e6..16402e8 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -108,9 +108,7 @@ sub cleanrpmsrate { my ($rpmsrate, $output, $norpmsrate, $reprpms, $o_urpm) = @_; $norpmsrate ||= []; - my ($rsrate_ref, $poloc_ref) = preread_rpmsrate($rpmsrate, $norpmsrate); - my @rpmsrate = @$rsrate_ref; - my %potloc = %$poloc_ref; + my ($rsrate_ref, $potloc) = preread_rpmsrate($rpmsrate, $norpmsrate); my (%rpms, $text, %rate, %section, %keyword, %locale, %localized_pkg); my @plain_flags = qw(INSTALL LIVE); @@ -141,13 +139,13 @@ sub cleanrpmsrate { $rpms{$vname} = [ $3, $vname ]; } } else { - check_if_expandable($key, $_, "$dir/$rpm", \%potloc, \%locale, \%localized_pkg, $urpm2, $o_urpm); + check_if_expandable($key, $_, "$dir/$rpm", $potloc, \%locale, \%localized_pkg, $urpm2, $o_urpm); } } } my (%done, @flags, @tree_rate, $prev_level); - foreach (@rpmsrate) { + foreach (@$rsrate_ref) { if (!$_->[0]) { $text .= "$_->[2]$_->[4]\n"; @flags = $_->[2] if $_->[2]; |