projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Imported Upstream version 3.2.0
[debian/amanda]
/
perl
/
Amanda
/
Application.pm
diff --git
a/perl/Amanda/Application.pm
b/perl/Amanda/Application.pm
index eada210de48c7ae8c0b1d4b81dba8a900a0690dc..657f6ac20dd7a214accda9e3d747b5018c6b090d 100644
(file)
--- 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;