SVN: toys/rsget.pl/RSGet/Curl.pm

[sparky]

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;