1 diff --git a/perl/Amanda/Header.pm b/perl/Amanda/Header.pm
2 index d8cc692..4c85841 100644
3 --- a/perl/Amanda/Header.pm
4 +++ b/perl/Amanda/Header.pm
5 @@ -482,7 +482,12 @@ sub from_string {
9 - return Amanda::Header::HeaderXML->new($self->{'dle_str'});
10 +# Patch taken from mailing list amanda-users on 2012/03/08
11 + if ($self->{'dle_str'}) {
12 + return Amanda::Header::HeaderXML->new($self->{'dle_str'});
18 package Amanda::Header::Header;