Imported Upstream version 3.2.0

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

diff --git a/perl/Amanda/Application.swg b/perl/Amanda/Application.swg
index 67edaa0b05cfc86adabbc05f4cd0aadd799275be..c58cfd0f54a920549a175cd325091abcaa69d3e1 100644 (file)
--- a/perl/Amanda/Application.swg
+++ b/perl/Amanda/Application.swg
@@ -86,6 +86,15 @@ 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;
+}
+
 %}
 
 /* C interfaces used by the above */