Thank you Arguile.
I did have some trouble with buffering, but not in these areas. STDIN and STDOUT are autoflushed when connected to an interactive terminal, but not when redirected. Because of this, my code worked fine when run directly, but hung miserably when run under djb's tcpserver. i finally added:
# turn on autoflush for STDIN and STDOUT
select STDIN;
$|=1;
select STDOUT;
$|=1;
select STDERR;
to deal with that.
Likewise in the log file, I'm doing much the same thing, except I'm not keeping the filehandle when not in use.
sub logger {
# set up a file handle for a log file.
open LOG, ">>$log_file" or die("Could not open log file for appendin
+g.");
select LOG;
$|=1;
select STDERR;
print LOG "weldd $$: ", scalar(localtime), " @_\n";
close LOG;
}
Alas, the IO::Socket stuff shouldn't require autoflushing, per perldoc:
perldoc IO::Socket
...
NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
As of VERSION 1.18 all IO::Socket objects have aut-
oflush turned on by default. This was not the case
with earlier releases.
NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
...
The uptake of this is that, while I did have problems with buffering, I don't think it's the current problem :(
ginseng |