From 5a5c10bca19f792c127dfb77e7335dac9dd5bb4e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 15 Mar 2012 12:17:39 +0000
Subject: (cleanrpmsrate) rename a variable for better reading

---
 pm/MGATools/rpmsrate.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pm')

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];
-- 
cgit v1.2.1