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 f74b17a..06ed2a2 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -75,7 +75,7 @@ sub preread_rpmsrate { # function copied from Mkcd::Tools sub cleanrpmsrate { - my ($rpmsrate, $output, $norpmsrate, $reprpms, $urpm) = @_; + my ($rpmsrate, $output, $norpmsrate, $reprpms, $o_urpm) = @_; $norpmsrate ||= []; open(my $LOG, ">&STDERR"); @@ -114,7 +114,7 @@ sub cleanrpmsrate { } elsif (my ($pg, $loc) = /^(.*)-([^-+]+)$/) { if ($potloc{$pg}) { my $pkg; - $pkg = $urpm->{rpm}{$urpm->{rpmkey}{key}{$key}} if ref $urpm; + $pkg = $o_urpm->{rpm}{$o_urpm->{rpmkey}{key}{$key}} if ref($o_urpm); # if package is not urpmi' synthesis, try to parse it directly: if (!$pkg) { |