Fix fetching through proxies

Author: simonwistow

Changes

@@ -2,7 +2,7 @@
 
 Revision history for XML::Feed
 
-0.22 
+0.22 2008-10-22
     - Correct namespace for terms in RSS
       http://rt.cpan.org/Ticket/Display.html?id=25393
       (Kent Cowgill KCOWGILL)
@@ -18,7 +18,9 @@ Revision history for XML::Feed
     - Add support for GEORSS
       http://rt.cpan.org/Ticket/Display.html?id=39924
       (Scott Gifford GIFF)
-
+    - Fix fetching through proxies
+      http://rt.cpan.org/Ticket/Display.html?id=36233
+      (Trevor Vallender)
 
 0.21 2008.10.15
     - Remove the inc directory because it's not needed anymore

lib/XML/Feed.pm

@@ -6,6 +6,7 @@ use strict;
 use base qw( Class::ErrorHandler );
 use Feed::Find;
 use URI::Fetch;
+use LWP::UserAgent;
 use Carp;
 
 our $VERSION = '0.21';
@@ -30,7 +31,9 @@ sub parse {
     my $feed = bless {}, $class;
     my $xml = '';
     if (UNIVERSAL::isa($stream, 'URI')) {
-        my $res = URI::Fetch->fetch($stream)
+        my $ua  = LWP::UserAgent->new;
+        $ua->env_proxy; # force allowing of proxies
+        my $res = URI::Fetch->fetch($stream, UserAgent => $ua)
             or return $class->error(URI::Fetch->errstr);
         return $class->error("This feed has been permanently removed")
             if $res->status == URI::Fetch::URI_GONE();