diff options
Diffstat (limited to 'pm/MGATools/rpmsrate.pm')
| -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; } } |