diff options
| -rw-r--r-- | lib/Feed/Utils.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Feed/Utils.pm b/lib/Feed/Utils.pm index 7a6c5bb..bf76d16 100644 --- a/lib/Feed/Utils.pm +++ b/lib/Feed/Utils.pm @@ -64,8 +64,15 @@ sub feeds { sub feeds_from_opml { my ($common_args,$opml_source,$opts) = @_; + # hack hack + my $ua = $feed_class->build_user_agent; + my $opml = try { - XML::LibXML->load_xml(location => $opml_source); + my $response = $ua->get($opml_source); + die sprintf('Got code "%s" processing OPML %s',$response->status_line,$opml_source) + unless $response->is_success; + + XML::LibXML->load_xml(string => $response->content); } catch { warn $_; return }; return unless $opml; |