From c48a497cf0700250f71b5e1a722d87d13003d150 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 11 Sep 2002 14:15:51 +0000 Subject: 4.0-17mdk --- urpm/parallel_ka_run.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'urpm') diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm index aac79dff..f1d1f775 100644 --- a/urpm/parallel_ka_run.pm +++ b/urpm/parallel_ka_run.pm @@ -93,11 +93,8 @@ sub parallel_resolve_dependencies { sub parallel_install { my ($parallel, $urpm, $remove, $install, $upgrade) = @_; - foreach (values %$install, values %$upgrade) { - my ($basename) = /([^\/]*)$/; - $urpm->{log}("parallel_ka_run: mput $parallel->{options} -- '$_' $urpm->{cachedir}/rpms/$basename"); - system "mput $parallel->{options} -- '$_' $urpm->{cachedir}/rpms/$basename"; - } + $urpm->{log}("parallel_ka_run: mput $parallel->{options} -- ".join(' ', values %$install, values %$upgrade)." $urpm->{cachedir}/rpms/"); + system "mput", split(' ', $parallel->{options}), '--', values %$install, values %$upgrade, "$urpm->{cachedir}/rpms/"; local (*F, $_); my ($node, %bad_nodes); -- cgit v1.2.1