X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FHeader.pm;fp=perl%2FAmanda%2FHeader.pm;h=4c8584189ddb1ac4781bee200026a3e3c28e15c2;hb=bbff4a953ad32c3021de3dba25e28372cb9b359d;hp=d8cc69275945307f770f3c848d360a8a3f6d6801;hpb=3c4bb2012986d596b3ee0e65fac4b2c5b7b01540;p=debian%2Famanda

diff --git a/perl/Amanda/Header.pm b/perl/Amanda/Header.pm
index d8cc692..4c85841 100644
--- a/perl/Amanda/Header.pm
+++ b/perl/Amanda/Header.pm
@@ -482,7 +482,12 @@ sub from_string {
 sub get_dle {
     my $self = shift;
 
-    return Amanda::Header::HeaderXML->new($self->{'dle_str'});
+# Patch taken from mailing list amanda-users on 2012/03/08
+    if ($self->{'dle_str'}) {
+        return Amanda::Header::HeaderXML->new($self->{'dle_str'});
+    } else {
+        return undef;
+    }
 }
 
 package Amanda::Header::Header;