diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-02-05 14:31:02 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-02-05 14:31:02 +0000 |
| commit | b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad (patch) | |
| tree | 1371a2b8b88718493bdb9d8c4d29241156f01e14 | |
| parent | 0496e8a533c4f7d2befd0360d40494d332acb361 (diff) | |
| download | urpmi-b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad.tar urpmi-b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad.tar.gz urpmi-b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad.tar.bz2 urpmi-b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad.tar.xz urpmi-b00f4c5b263ca9e473b8bc4df06d5c44066cc0ad.zip | |
(_schedule_packages) localize a variable
| -rw-r--r-- | urpm/install.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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)) { |