From d0a292cf431434c705caf361dec640a957a20c1f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 9 Jul 2008 21:02:49 +0000 Subject: rename func to be local to module --- urpm/parallel_ssh.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'urpm/parallel_ssh.pm') diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 92976203..4119dbd8 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -28,7 +28,7 @@ sub _scp { or $urpm->{fatal}(1, N("scp failed on host %s (%d)", $host, $? >> 8)); } -sub scp_rpms { +sub _scp_rpms { my ($parallel, $urpm, @files) = @_; foreach my $host (keys %{$parallel->{nodes}}) { @@ -55,7 +55,7 @@ sub _ssh_urpm { sub parallel_register_rpms { my ($parallel, $urpm, @files) = @_; - scp_rpms($parallel, $urpm, @files); + _scp_rpms($parallel, $urpm, @files); urpm::parallel::post_register_rpms($parallel, $urpm, @files); } @@ -203,7 +203,7 @@ sub parallel_resolve_dependencies { sub parallel_install { my ($parallel, $urpm, undef, $install, $upgrade, %options) = @_; - scp_rpms($parallel, $urpm, values %$install, values %$upgrade); + _scp_rpms($parallel, $urpm, values %$install, values %$upgrade); my %bad_nodes; foreach my $node (keys %{$parallel->{nodes}}) { -- cgit v1.2.1