2012/10/15 Francois Gouget <fgouget@codeweavers.com>

---
��testbot/lib/WineTestBot/Log.pm | �� 16 +++++++---------
��1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/testbot/lib/WineTestBot/Log.pm b/testbot/lib/WineTestBot/Log.pm
index 6883968..7de6dcb 100644
--- a/testbot/lib/WineTestBot/Log.pm
+++ b/testbot/lib/WineTestBot/Log.pm
@@ -38,20 +38,18 @@ sub LogMsg(@)
�� if (!defined $logfile)
�� {
�� my $oldumask = umask(002);
- �� if (open($logfile, ">>", "$LogDir/log"))
- �� {
- �� # Flush after each print
- �� my $tmp=select($logfile);
- �� $| = 1;
- �� select($tmp);
- �� }
- �� else
+ �� if (!open($logfile, ">>", "$LogDir/log"))
�� {
�� require File::Basename;
�� print STDERR File::Basename::basename($0), ":warning: could not open '$LogDir/log' for writing: $!\n";
- �� $logfile = undef;
+ �� open($logfile, ">>&=", 2);
�� }
�� umask($oldumask);
+
+ �� # Flush after each print
+ �� my $tmp=select($logfile);
+ �� $| = 1;
+ �� select($tmp);
�� }
�� print $logfile scalar localtime, " ", @_ if ($logfile);
��}
--
1.7.10.4