marsadm: preserve flushing order of filehandles

This ensures that warnings appear at the right place when one
does not use a redirection like 2>&1 at the commandline.
This commit is contained in:
Thomas Schoebel-Theuer 2015-02-10 16:29:13 +01:00
parent 7ced30b24c
commit ede65cc694
1 changed files with 2 additions and 0 deletions

View File

@ -44,12 +44,14 @@ sub llog {
sub lprint {
my ($text) = @_;
$OUTPUT_AUTOFLUSH = 1;
print $text;
llog($text);
}
sub lprint_stderr {
my ($text) = @_;
$OUTPUT_AUTOFLUSH = 1;
print STDERR $text;
llog($text);
}