clean up and expand delivery of example config files

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

diff --git a/perl/Amanda/Application.pm b/perl/Amanda/Application.pm
index eada210de48c7ae8c0b1d4b81dba8a900a0690dc..a0b22bed617cffef3c01f33e5ecc3d86b5cf78e6 100644 (file)
--- a/perl/Amanda/Application.pm
+++ b/perl/Amanda/Application.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.
@@ -169,4 +169,13 @@ sub read_magic_block {
 
     return $type;
 }
+
+sub _set_mesgout {
+    my $self = shift;
+
+    my $mesgout_fd;
+    open ($mesgout_fd, '>&=3') || die("Can't open mesgout_fd: $!");
+    $self->{mesgout} = $mesgout_fd;
+}
+
 1;