aboutsummaryrefslogtreecommitdiffstats
path: root/Rpmdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-03-24 13:22:32 +0000
committerThierry Vignaud <tv@mageia.org>2013-03-24 13:22:32 +0000
commit4cdceb0a2ddcea11473ba3df85f0b8dd096edddc (patch)
treee3b30721624e10a6d2dd130f5dd4c7e7036a4838 /Rpmdrake
parenta358ff87e8cb79d450b88074e07f5546916178d7 (diff)
downloadrpmdrake-4cdceb0a2ddcea11473ba3df85f0b8dd096edddc.tar
rpmdrake-4cdceb0a2ddcea11473ba3df85f0b8dd096edddc.tar.gz
rpmdrake-4cdceb0a2ddcea11473ba3df85f0b8dd096edddc.tar.bz2
rpmdrake-4cdceb0a2ddcea11473ba3df85f0b8dd096edddc.tar.xz
rpmdrake-4cdceb0a2ddcea11473ba3df85f0b8dd096edddc.zip
perl_checker cleanups
Diffstat (limited to 'Rpmdrake')
-rw-r--r--Rpmdrake/pkg.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 0d354614..b038cc90 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -748,8 +748,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
urpm::orphans::mark_as_requested($urpm, $state, 0);
- my ($progress, $total, @rpms_upgrade);
- my ($remaining, $done);
+ my (@rpms_upgrade, $remaining, $done);
# FIXME: sometimes state is lost:
my @ask_unselect = urpm::select::unselected_packages($state);
@@ -792,7 +791,6 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
post_extract => sub {
my ($_set, $transaction_sources, $transaction_sources_install) = @_;
$done += grep { !/\.src\.rpm$/ } values %$transaction_sources; #updates
- $total = keys(%$transaction_sources_install) + keys %$transaction_sources;
push @rpms_upgrade, keys %$transaction_sources;
$done += grep { !/\.src\.rpm$/ } values %$transaction_sources_install; # installs
},