summaryrefslogtreecommitdiffstats
path: root/pm/MGATools
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-15 12:17:33 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-15 12:17:33 +0000
commit4cc88690c9c2385573b9a2bd1ac85fe3f174fca3 (patch)
tree833c8044adb96f68170ef5152375fb1730acce43 /pm/MGATools
parentb24ba9733c0f506d56e66c0e8b6e131f98be5dc0 (diff)
downloadmgatools-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.pm8
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];