From bff7eac6fce99f077fb4696c11e6a8b0d1fdceef Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 4 Sep 2008 08:21:58 +0000 Subject: cleanup --- urpm/download.pm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/urpm/download.pm b/urpm/download.pm index 1cc8f965..59579fd1 100644 --- a/urpm/download.pm +++ b/urpm/download.pm @@ -186,8 +186,7 @@ sub set_proxy { my @res; - for ($proxy->{type}) { - if (/\bwget\b/) { + if ($proxy->{type} =~ /\bwget\b/) { if (defined $p->{http_proxy}) { $ENV{http_proxy} = $p->{http_proxy} =~ /^http:/ ? $p->{http_proxy} @@ -196,22 +195,20 @@ sub set_proxy { $ENV{ftp_proxy} = $p->{ftp_proxy} if defined $p->{ftp_proxy}; @res = ("--proxy-user=$p->{user}", "--proxy-passwd=$p->{pwd}") if defined $p->{user} && defined $p->{pwd}; - - } elsif (/\bcurl\b/) { + } elsif ($proxy->{type} =~ /\bcurl\b/) { push @res, ('-x', $p->{http_proxy}) if defined $p->{http_proxy}; push @res, ('-x', $p->{ftp_proxy}) if defined $p->{ftp_proxy}; push @res, ('-U', "$p->{user}:$p->{pwd}") if defined $p->{user} && defined $p->{pwd}; push @res, '-H', 'Pragma:' if @res; - } elsif (/\baria2\b/) { + } elsif ($proxy->{type} =~ /\baria2\b/) { push @res, ('--http-proxy', $p->{http_proxy}) if defined $p->{http_proxy}; push @res, ('--http-proxy', $p->{ftp_proxy}) if defined $p->{ftp_proxy}; push @res, ("--http-proxy-user=$p->{user}", "--http-proxy-passwd=$p->{pwd}") if defined $p->{user} && defined $p->{pwd}; - } else { + } else { die N("Unknown webfetch `%s' !!!\n", $proxy->{type}); - } - } + } @res; } -- cgit v1.2.1