My problem is fixed. Jean-Louis provided a patch, it didn't work
at first and then he said:
> You do not have the correct version of swig installed. Do not
> patch Header.swg, it require swig, but you can manually apply the
> patch to Header.pm
Here's what I did:
1. Install swig-1.3.40.
2. Apply this patch, but not to Header.swg, to Header.pm
diff --git a/perl/Amanda/Header.swg b/perl/Amanda/Header.swg
index a7d391b..28cb4e8 100644
--- a/perl/Amanda/Header.swg
+++ b/perl/Amanda/Header.swg
@@ -151,7 +151,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;
+ }
}
Steve
--
Steven J. Backus Computer Specialist
University of Utah E-Mail: [email protected]
Genetic Epidemiology Alternate: [email protected]
391 Chipeta Way -- Suite D Office: 801.587.9308
Salt Lake City, UT 84108-1266 http://www.math.utah.edu/~backus
