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
/
Script.pm
diff --git
a/perl/Amanda/Script.pm
b/perl/Amanda/Script.pm
index 9500465d297ccfac80dd21b5f87f5632d6a905dc..c8015d0da3d5a0cd9cc70633b1795ba27ab59b6e 100644
(file)
--- 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;