diff options
| -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]; |