diff options
| author | Daouda Lo <daouda@mandriva.com> | 2005-09-20 16:55:07 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2005-09-20 16:55:07 +0000 |
| commit | f906e025db83611062d08aaa3c27f60309aed153 (patch) | |
| tree | b769f3e57c4b934c7b113032339107e67b2717ef | |
| parent | 02e75971041ea4cd006a064a6ebb96c9805a3afc (diff) | |
| download | mgaonline-f906e025db83611062d08aaa3c27f60309aed153.tar mgaonline-f906e025db83611062d08aaa3c27f60309aed153.tar.gz mgaonline-f906e025db83611062d08aaa3c27f60309aed153.tar.bz2 mgaonline-f906e025db83611062d08aaa3c27f60309aed153.tar.xz mgaonline-f906e025db83611062d08aaa3c27f60309aed153.zip | |
- declare is_proxy before calling it
| -rw-r--r-- | mdkonline.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index cf35a8d7..be9ce8e4 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -23,12 +23,12 @@ my $onlineProxy = 'https://onine.mandriva.com/soap'; my $useragent = set_ua('mdkonline'); -my $s = is_proxy() ? SOAP::Lite->uri($uri)->proxy($serviceProxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) : SOAP::Lite->uri($uri)->proxy($serviceProxy, agent => $useragent); - sub is_proxy () { return 1 if defined $ENV{http_proxy}; } +my $s = is_proxy() ? SOAP::Lite->uri($uri)->proxy($serviceProxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) : SOAP::Lite->uri($uri)->proxy($serviceProxy, agent => $useragent); + sub md5file { require Digest::MD5; my @md5 = map { |