X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FApplication.pm;fp=perl%2FAmanda%2FApplication.pm;h=e2dc296b3084f1f5533c38bb25c674a766b067d0;hb=109540caa4e37a3663b3dcfb9a205b9609e3f561;hp=a0b22bed617cffef3c01f33e5ecc3d86b5cf78e6;hpb=4c9eba1feb11adf189bceb4001c425e641f0b56a;p=debian%2Famanda

diff --git a/perl/Amanda/Application.pm b/perl/Amanda/Application.pm
index a0b22be..e2dc296 100644
--- a/perl/Amanda/Application.pm
+++ b/perl/Amanda/Application.pm
@@ -114,6 +114,7 @@ require Amanda::Script_App;
 
 use strict;
 use warnings;
+use IO::Handle;
 use Amanda::Config qw( :init :getconf  config_dir_relative );
 
 
@@ -173,9 +174,10 @@ sub read_magic_block {
 sub _set_mesgout {
     my $self = shift;
 
-    my $mesgout_fd;
-    open ($mesgout_fd, '>&=3') || die("Can't open mesgout_fd: $!");
-    $self->{mesgout} = $mesgout_fd;
+    my $mesgout = IO::Handle->new();
+    $mesgout->fdopen(3,"a") || die("Can't open mesgout_fd: $!");
+    $mesgout->autoflush(1);
+    $self->{mesgout} = $mesgout;
 }
 
 1;