changed the logging to work when the logfile is removed during testing

1 files changed, 3 insertions, 4 deletions

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 3beb6030a..13c4b8218 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -38,15 +38,15 @@ use strict;
 
 require "getpart.pm";
 
-open(FTPLOG, ">log/ftpd.log") ||
-    print STDERR "failed to open log file, runs without logging\n";
-
+# open and close each time to allow removal at any time
 sub logmsg {
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
         localtime(time);
+    open(FTPLOG, ">>log/ftpd.log");
     printf FTPLOG ("%02d:%02d:%02d (%d) ",
                    $hour, $min, $sec, $$);
     print FTPLOG @_;
+    close(FTPLOG);
 }
 
 sub ftpmsg {
@@ -530,7 +530,6 @@ for ( $waitedpid = 0;
     open(STDIN,  "<&Client")   || die "can't dup client to stdin";
     open(STDOUT, ">&Client")   || die "can't dup client to stdout";
     
-    FTPLOG->autoflush(1);
     &customize(); # read test control instructions
 
     print @welcome;