diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 08:28:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 08:28:49 +0000 |
| commit | 3261e5700b9fb54bcbe18aa873f5b05c50f95b6b (patch) | |
| tree | 32bae165d23906e72e3c43d60bbc0c6e1262e92a | |
| parent | 9b8a236ca329fec15401573ebd57d7a7b1d212ee (diff) | |
| download | mgatools-3261e5700b9fb54bcbe18aa873f5b05c50f95b6b.tar mgatools-3261e5700b9fb54bcbe18aa873f5b05c50f95b6b.tar.gz mgatools-3261e5700b9fb54bcbe18aa873f5b05c50f95b6b.tar.bz2 mgatools-3261e5700b9fb54bcbe18aa873f5b05c50f95b6b.tar.xz mgatools-3261e5700b9fb54bcbe18aa873f5b05c50f95b6b.zip | |
(cleanrpmsrate) $urpm argument is not mandatory and is not actually
passsed by clean-rpmsrate
| -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) { |