X-Git-Url: https://git.gag.com/?p=debian%2Famanda;a=blobdiff_plain;f=perl%2FAmanda%2FApplication.pm;h=657f6ac20dd7a214accda9e3d747b5018c6b090d;hp=eada210de48c7ae8c0b1d4b81dba8a900a0690dc;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e

diff --git a/perl/Amanda/Application.pm b/perl/Amanda/Application.pm
index eada210..657f6ac 100644
--- a/perl/Amanda/Application.pm
+++ b/perl/Amanda/Application.pm
@@ -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;