[PATCH 02/14] debian package patch: * Fails to retrieve XML data over HTTP (debian#421884) Bart Martens <[email protected]>

From: Sven Dowideit <[email protected]>

---
 AnyData/Format/XML.pm |    3 ++-
 Changes               |    1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/AnyData/Format/XML.pm b/AnyData/Format/XML.pm
index e46271e..e3dd535 100644
--- a/AnyData/Format/XML.pm
+++ b/AnyData/Format/XML.pm
@@ -681,11 +681,12 @@ paste into parent record_tag__
 
 sub get_data {
     my $self = shift;
-    my $fh_or_str  = shift  || return;
+    my $fh_or_str  = shift;
     my $url = $self->{url};
     if ( $url ) {
       $fh_or_str = AnyData::Storage::RAM::get_remote_data({},$url);
     }
+    return if( ! defined( $fh_or_str ) );
     my $col_names = shift || [];
     $col_names = []; #### IGNORE USER COLUMN NAMES FOR NOW
     my $flags;
diff --git a/Changes b/Changes
index f51a7df..a916a97 100644
--- a/Changes
+++ b/Changes
@@ -6,6 +6,7 @@ version 0.11, released  Aug 2012
 
  * new maintainer Sven Dowideit
  * use Test::More
+ * Fails to retrieve XML data over HTTP (debian#421884) Bart Martens <[email protected]>
  *
 
 version 0.10, released 19 April 2004
-- 
1.7.10.4