git.gag.com Git - debian/amanda/blob - debian/patches/VTAPES-access.diff

   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 {
   6  sub get_dle {
   7      my $self = shift;
   8
   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'});
  13 +    } else {
  14 +        return undef;
  15 +    }
  16  }
  17
  18  package Amanda::Header::Header;