diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-03-24 13:22:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-03-24 13:22:32 +0000 |
| commit | 4cdceb0a2ddcea11473ba3df85f0b8dd096edddc (patch) | |
| tree | e3b30721624e10a6d2dd130f5dd4c7e7036a4838 /Rpmdrake | |
| parent | a358ff87e8cb79d450b88074e07f5546916178d7 (diff) | |
| download | rpmdrake-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.pm | 4 |
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 }, |