diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:36 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:36 +0000 |
commit | a287db3ee9a6a41975242601af6a76fd601bc5e2 (patch) | |
tree | 115636790e9ac3ebe67639cc3769d2b6f9c0a3a3 | |
parent | 4cc88690c9c2385573b9a2bd1ac85fe3f174fca3 (diff) | |
download | mgatools-a287db3ee9a6a41975242601af6a76fd601bc5e2.tar mgatools-a287db3ee9a6a41975242601af6a76fd601bc5e2.tar.gz mgatools-a287db3ee9a6a41975242601af6a76fd601bc5e2.tar.bz2 mgatools-a287db3ee9a6a41975242601af6a76fd601bc5e2.tar.xz mgatools-a287db3ee9a6a41975242601af6a76fd601bc5e2.zip |
(cleanrpmsrate) rename a variable for better reading
-rw-r--r-- | pm/MGATools/rpmsrate.pm | 8 |
1 files 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; } } |