No matter what I do, I cannot get the non blocking
waitfor to not block. NT4p6 perl 5.6.0 bld 623.
Does it work in NT.
(Parent has a telnet session open and is monitoring the
applictions communications with the telnet server. When
the application is done, waitpid unblocks and net::telent's
getline empties the buffer. If I can't get this to unblock,
I wonder how big is the buffer? Will I loose anything?)
Signed fork rookie.
Signed net:: rookie.
Thanks.
use Net::Telnet ();
use POSIX ":sys_wait_h";
# Here the call in the parent's sub "monitor()".
waitpid($pid, &WNOHANG);
#And fork is right out of the book.
FORK: {
if ($pid = fork) {
sleep(2);
$rtn = monitor($pid);
}
elsif(defined $pid) {
system("$program");
$childProcessSystemReturn = $?;
exit $childProcessSystemReturn;
}
elsif ($! == EAGAIN) {
redo FORK;
}
else {
# can't recover
die "Can't fork: $!\n";
}
} # end FORK:
____________________________________________________________________
Get free email and a permanent address at http://www.netaddress.com/?N=1
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
