summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2005-09-20 16:55:07 +0000
committerDaouda Lo <daouda@mandriva.com>2005-09-20 16:55:07 +0000
commitf906e025db83611062d08aaa3c27f60309aed153 (patch)
treeb769f3e57c4b934c7b113032339107e67b2717ef
parent02e75971041ea4cd006a064a6ebb96c9805a3afc (diff)
downloadmgaonline-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.pm4
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 {