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