Imported Upstream version 3.3.2

[debian/amanda] / perl / Amanda / Header.pm

diff --git a/perl/Amanda/Header.pm b/perl/Amanda/Header.pm
index f569ae6014a6fbc44d74eb6eeecc76b7eb4c1c2a..3b01eacbd8036b78c166269f0dc63565cf4c2afc 100644 (file)
--- a/perl/Amanda/Header.pm
+++ b/perl/Amanda/Header.pm
@@ -1,5 +1,5 @@
 # This file was automatically generated by SWIG (http://www.swig.org).
-# Version 1.3.39
+# Version 2.0.4
 #
 # Do not make changes to this file unless you know what you are doing--modify
 # the SWIG interface file instead.
@@ -482,7 +482,11 @@ sub from_string {
 sub get_dle {
     my $self = shift;
 
-    return Amanda::Header::HeaderXML->new($self->{'dle_str'});
+    if ($self->{'dle_str'}) {
+       return Amanda::Header::HeaderXML->new($self->{'dle_str'});
+    } else {
+       return undef;
+    }
 }
 
 package Amanda::Header::Header;