X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=perl%2FAmanda%2FScript.pm;h=c8015d0da3d5a0cd9cc70633b1795ba27ab59b6e;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hp=9500465d297ccfac80dd21b5f87f5632d6a905dc;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e;p=debian%2Famanda

diff --git a/perl/Amanda/Script.pm b/perl/Amanda/Script.pm
index 9500465..c8015d0 100644
--- a/perl/Amanda/Script.pm
+++ b/perl/Amanda/Script.pm
@@ -86,5 +86,12 @@ sub new {
     return $self;
 }
 
+sub _set_mesgout {
+    my $self = shift;
+
+    my $mesgout_fd;
+    open ($mesgout_fd, '>&=1') || die("Can't open mesgout_fd: $!");
+    $self->{mesgout} = $mesgout_fd;
+}
 
 1;