From 3261e5700b9fb54bcbe18aa873f5b05c50f95b6b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 Mar 2012 08:28:49 +0000 Subject: (cleanrpmsrate) $urpm argument is not mandatory and is not actually passsed by clean-rpmsrate --- pm/MGATools/rpmsrate.pm | 4 ++-- 1 file 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) { -- cgit v1.2.1