Author: sparky
Date: Tue Dec 28 21:43:23 2010
New Revision: 12028
Modified:
toys/rsget.pl/RSGet/Curl.pm
Log:
- fix http= proxy
Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm (original)
+++ toys/rsget.pl/RSGet/Curl.pm Tue Dec 28 21:43:23 2010
@@ -90,8 +90,8 @@
foreach my $if ( split /;+/, $outif ) {
if ( $if =~ /^([a-z0-9]+)=(\S+)(:(\d+))?$/ ) {
my ($tn, $host, $port) = ($1, $2, $4);
- if ( my $type = $proxytype{ $tn } ) {
- $curl->setopt( CURLOPT_PROXYTYPE, $type
);
+ if ( exists $proxytype{ $tn } ) {
+ $curl->setopt( CURLOPT_PROXYTYPE,
$proxytype{ $tn } );
$curl->setopt( CURLOPT_PROXY, $host );
$curl->setopt( CURLOPT_PROXYPORT, $port
)
if $port;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
