Index: GeoDB/Modify/Tag.pm
===================================================================
--- GeoDB/Modify/Tag.pm (revision 542)
+++ GeoDB/Modify/Tag.pm (working copy)
@@ -133,7 +133,8 @@
maybe_load('LWP::UserAgent',
'The LWP::UserAgent perl module is required for uploading/downloading of tags');
my $ua = new LWP::UserAgent;
- my $req = HTTP::Request->new(POST => "http://$server/");
+ my $req = HTTP::Request->new(POST => "http://$server/",
+ env_proxy => 1);
$req->content_type('application/x-www-form-urlencoded');
# create the content string
@@ -159,7 +160,7 @@
# publish to the geoqo server
maybe_load('LWP::UserAgent',
'The LWP::UserAgent perl module is required for uploading/downloading of tags');
- my $ua = new LWP::UserAgent;
+ my $ua = new LWP::UserAgent(env_proxy => 1);
my $req = HTTP::Request->new(POST => "http://$server/");
$req->content_type('application/x-www-form-urlencoded');