diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-03-02 13:25:50 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-03-02 13:25:50 +0000 |
commit | 641cef1a1148b0b750919ca146d8bbc961b211b9 (patch) | |
tree | 74170b2ad97eb4116742eb8962284f2caa17feda | |
parent | cb073c09a8898c6aa217815a5d315e75abdd524f (diff) | |
download | rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar.gz rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar.bz2 rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar.xz rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.zip |
perl_checker cleanups
-rwxr-xr-x | Rpmdrake/pkg.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 06f9d327..3ded358a 100755 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -456,10 +456,10 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( return 0; } - my $_lock = urpm::lock::urpmi_db($urpm); + my $lock = urpm::lock::urpmi_db($urpm); my $_rpm_lock = urpm::lock::rpm_db($urpm, 'exclusive'); my $state = $urpm->{rpmdrake_state}; - my ($local_sources, $list, $local_to_removes) = urpm::get_pkgs::selected2list($urpm, + my ($local_sources, $list) = urpm::get_pkgs::selected2list($urpm, $state->{selected}, clean_all => 0 ); @@ -506,7 +506,6 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( my (@errors, @missing_errors); my $something_installed; - my %sources = %$local_sources; my %error_sources; @@ -528,7 +527,6 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( ); my $progress_nb; - my $total_nb = 0; #scalar grep { m|^/| } @rpms_install, @rpms_upgrade; my $transaction; my $callback_inst = sub { @@ -703,7 +701,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( } Rpmdrake::gurpm::end(); - undef $_lock; + undef $lock; if (@errors || @error_msgs) { interactive_msg( |