diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:39 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:39 +0000 |
| commit | 5a5c10bca19f792c127dfb77e7335dac9dd5bb4e (patch) | |
| tree | 5e138fd1681edf98b53bc46d2dcf263604cdeb5f | |
| parent | a287db3ee9a6a41975242601af6a76fd601bc5e2 (diff) | |
| download | mgatools-5a5c10bca19f792c127dfb77e7335dac9dd5bb4e.tar mgatools-5a5c10bca19f792c127dfb77e7335dac9dd5bb4e.tar.gz mgatools-5a5c10bca19f792c127dfb77e7335dac9dd5bb4e.tar.bz2 mgatools-5a5c10bca19f792c127dfb77e7335dac9dd5bb4e.tar.xz mgatools-5a5c10bca19f792c127dfb77e7335dac9dd5bb4e.zip | |
(cleanrpmsrate) rename a variable for better reading
| -rw-r--r-- | pm/MGATools/rpmsrate.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 41c96a7..a027886 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -108,7 +108,7 @@ sub cleanrpmsrate { my ($rpmsrate_file, $output, $norpmsrate, $reprpms, $o_urpm) = @_; $norpmsrate ||= []; - my ($rsrate_ref, $potloc) = preread_rpmsrate($rpmsrate_file, $norpmsrate); + my ($rpmsrate, $potloc) = preread_rpmsrate($rpmsrate_file, $norpmsrate); my (%rpms, $text, %rate, %section, %keyword, %locale, %localized_pkg); my @plain_flags = qw(INSTALL LIVE); @@ -145,7 +145,7 @@ sub cleanrpmsrate { } my (%done, @flags, @tree_rate, $prev_level); - foreach (@$rsrate_ref) { + foreach (@$rpmsrate) { if (!$_->[0]) { $text .= "$_->[2]$_->[4]\n"; @flags = $_->[2] if $_->[2]; |