aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-03-02 13:25:50 +0000
committerThierry Vignaud <tv@mandriva.org>2007-03-02 13:25:50 +0000
commit641cef1a1148b0b750919ca146d8bbc961b211b9 (patch)
tree74170b2ad97eb4116742eb8962284f2caa17feda
parentcb073c09a8898c6aa217815a5d315e75abdd524f (diff)
downloadrpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar
rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar.gz
rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar.bz2
rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.tar.xz
rpmdrake-641cef1a1148b0b750919ca146d8bbc961b211b9.zip
perl_checker cleanups
-rwxr-xr-xRpmdrake/pkg.pm8
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(