From b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 5 Feb 2013 14:31:02 +0000 Subject: (_schedule_packages) localize a variable --- urpm/install.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'urpm/install.pm') diff --git a/urpm/install.pm b/urpm/install.pm index d867f172..2775cd30 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -205,7 +205,8 @@ sub _apply_delta_rpm { } sub _schedule_packages { - my ($urpm, $trans, $install, $upgrade, $update, %options) = @_; + my ($urpm, $trans, $install, $upgrade, %options) = @_; + my $update = 0; my (@trans_pkgs, @produced_deltas); foreach my $mode ($install, $upgrade) { foreach (keys %$mode) { @@ -352,11 +353,11 @@ sub install { $trans->set_script_fd($options{script_fd}) if $options{script_fd}; - my ($update, @errors) = 0; + my @errors; _schedule_packages_for_erasing($urpm, $trans, $remove); - my ($produced_deltas, @trans_pkgs) = _schedule_packages($urpm, $trans, $install, $upgrade, $update, %options); + my ($produced_deltas, @trans_pkgs) = _schedule_packages($urpm, $trans, $install, $upgrade, %options); if (!$options{nodeps} && (@errors = $trans->check(%options))) { } elsif (!$options{noorder} && (@errors = $trans->order)) { -- cgit v1.2.1