From 29cb5aa0bcd107fb0af89b0433daefe08487d74d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 9 Jul 2008 20:44:18 +0000 Subject: don't use a regexp, it's unsafe without \Q --- urpm/parallel_ssh.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 4b11e8c7..02f59f06 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -25,8 +25,9 @@ sub scp_rpms { foreach my $host (keys %{$parallel->{nodes}}) { $urpm->{log}("parallel_ssh: scp @files $host:$urpm->{cachedir}/rpms"); if (_localhost($host)) { - my @f = grep { ! m!^$urpm->{cachedir}/rpms! } @files; - @f and system('cp', @f, "$urpm->{cachedir}/rpms"); + if (my @f = grep { dirname($_) ne "$urpm->{cachedir}/rpms" } @files) { + system('cp', @f, "$urpm->{cachedir}/rpms"); + } } else { system('scp', @files, "$host:$urpm->{cachedir}/rpms"); } -- cgit v1.2.1