diff options
author | Francois Pons <fpons@mandriva.com> | 2002-06-28 08:42:08 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2002-06-28 08:42:08 +0000 |
commit | 4b8a4f606f29c517d129d8a3efd5ec53bbe4201c (patch) | |
tree | f2a0538117d72300a852adba7d3c36f6b3a5c4f1 | |
parent | 70b30041f278c33ec79a8c9d96c65768a42844ba (diff) | |
download | urpmi-4b8a4f606f29c517d129d8a3efd5ec53bbe4201c.tar urpmi-4b8a4f606f29c517d129d8a3efd5ec53bbe4201c.tar.gz urpmi-4b8a4f606f29c517d129d8a3efd5ec53bbe4201c.tar.bz2 urpmi-4b8a4f606f29c517d129d8a3efd5ec53bbe4201c.tar.xz urpmi-4b8a4f606f29c517d129d8a3efd5ec53bbe4201c.zip |
3.6-3mdk
-rw-r--r-- | urpm.pm | 10 | ||||
-rwxr-xr-x | urpmi | 28 | ||||
-rw-r--r-- | urpmi.spec | 6 |
3 files changed, 27 insertions, 17 deletions
@@ -230,8 +230,14 @@ sub sync_rsync { -x "/usr/bin/rsync" or die _("rsync is missing\n"); -x "/usr/bin/ssh" or die _("ssh is missing\n"); my $options = shift @_; - system "/usr/bin/rsync", (ref $options && $options->{quiet} ? ("-q") : ("--progress", "-v")), "--partial", "-e", "ssh", - @_, (ref $options ? $options->{dir} : $options); + foreach (@_) { + my $count = 3; #- retry count on error (if file exists). + my $basename = (/^.*\/([^\/]*)$/ && $1) || $_; + do { + system "/usr/bin/rsync", (ref $options && $options->{quiet} ? ("-q") : ("--progress", "-v")), "--partial", "-e", "ssh", + $_, (ref $options ? $options->{dir} : $options); + } while ($? != 0 && --$count > 0 && (-e (ref $options ? $options->{dir} : $options) . "/$basename")); + } $? == 0 or die _("rsync failed: exited with %d or signal %d\n", $? >> 8, $? & 127); } @@ -334,21 +334,21 @@ sub ask_choice { } $urpm->resolve_requested($db, $state, callback_choices => \&ask_choice); +} - if (%{$state->{ask_unselect} || {}}) { - my $list = join "\n", map { $urpm->{depslist}[$_]->fullname } keys %{$state->{ask_unselect}}; - $noexpr = _("Nn"); - $yesexpr = _("Yy"); - message_input(_("Some package requested cannot be installed:\n%s\ndo you agree ?", $list) . _(" (Y/n) ")) =~ /[$noexpr]/ and exit 0; - delete @{$state->{selected}}{keys %{$state->{ask_unselect}}}; - } - if (%{$state->{ask_remove} || {}}) { - my $list = join "\n", keys %{$state->{ask_remove}}; - $noexpr = _("Nn"); - $yesexpr = _("Yy"); - message_input(_("Some package have to be removed for others to be upgraded:\n%s\ndo you agree ?", $list) . _(" (Y/n) ")) =~ /[$noexpr]/ and exit 0; - system("rpm", "-e", "--nodeps", keys %{$state->{ask_remove}}, ($root ? ("--root", $root) : ())); - } +if (%{$state->{ask_unselect} || {}}) { + my $list = join "\n", map { $urpm->{depslist}[$_]->fullname } keys %{$state->{ask_unselect}}; + $noexpr = _("Nn"); + $yesexpr = _("Yy"); + message_input(_("Some package requested cannot be installed:\n%s\ndo you agree ?", $list) . _(" (Y/n) ")) =~ /[$noexpr]/ and exit 0; + delete @{$state->{selected}}{keys %{$state->{ask_unselect}}}; +} +if (%{$state->{ask_remove} || {}}) { + my $list = join "\n", keys %{$state->{ask_remove}}; + $noexpr = _("Nn"); + $yesexpr = _("Yy"); + message_input(_("Some package have to be removed for others to be upgraded:\n%s\ndo you agree ?", $list) . _(" (Y/n) ")) =~ /[$noexpr]/ and exit 0; + system("rpm", "-e", "--nodeps", keys %{$state->{ask_remove}}, ($root ? ("--root", $root) : ())); } #- get out of package that should not be upgraded. @@ -2,7 +2,7 @@ Name: urpmi Version: 3.6 -Release: 2mdk +Release: 3mdk License: GPL Source0: %{name}.tar.bz2 Source1: %{name}.logrotate @@ -144,6 +144,10 @@ fi %changelog +* Fri Jun 28 2002 Fran�ois Pons <fpons@mandrakesoft.com> 3.6-3mdk +- fix deadlock on removing package. +- fix rsync download for mulitples files. + * Thu Jun 27 2002 Fran�ois Pons <fpons@mandrakesoft.com> 3.6-2mdk - added rsync:// and ssh:// protocol to urpmi. |