aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ftpserver.pl7
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;