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

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

diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm
index 16402e8..41c96a7 100644
--- a/pm/MGATools/rpmsrate.pm
+++ b/pm/MGATools/rpmsrate.pm
@@ -105,10 +105,10 @@ sub check_if_expandable {
 
 # function copied from Mkcd::Tools
 sub cleanrpmsrate {
-    my ($rpmsrate, $output, $norpmsrate, $reprpms, $o_urpm) = @_;
+    my ($rpmsrate_file, $output, $norpmsrate, $reprpms, $o_urpm) = @_;
     $norpmsrate ||= [];
 
-    my ($rsrate_ref, $potloc) = preread_rpmsrate($rpmsrate, $norpmsrate);
+    my ($rsrate_ref, $potloc) = preread_rpmsrate($rpmsrate_file, $norpmsrate);
 
     my (%rpms, $text, %rate, %section, %keyword, %locale, %localized_pkg);
     my @plain_flags = qw(INSTALL LIVE);
@@ -249,11 +249,11 @@ sub cleanrpmsrate {
 
     if (%rpms || $output || %locale) {
 	if (%$reprpms || $output) {
-	    $output ||= $rpmsrate;
+	    $output ||= $rpmsrate_file;
 	    if (open my $A, ">$output") {
 		print $A $text;
 	    } else { 
-		warn "ERROR cleanrpmsrate: cannot open $rpmsrate for writing\n";
+		warn "ERROR cleanrpmsrate: cannot open $rpmsrate_file for writing\n";
 		print $text;
 	    }
 	}
-- 
cgit v1.2.1