I'm attempting to watch two items with event, io and signal.
This should be simple but it isn't working the way I need it
to. If I start the script below and immediately send a sigterm
the signal isn't caught and the sub doesn't execute. My guess
is that the open is blocking for the first read on the pipe
to occur which is causing the signal to miss. The program
will catch the signal as long as the pipe has been read
at least once. Where am I going wrong? Any help will be
greatly appreciated.
TIA
Travis
CODE----
#!/usr/local/perl561/bin/perl
use IO::File;
use Event;
$FIFO = "npipe";
unless (-p $FIFO){
unlink $FIFO;
system ('/sbin/mknod', $FIFO,'p');
}
sub shutdown {
Event::unloop;
print "Good Bye!\n";
exit;
}
sub say_hello {
$fd = $_[0]->w->fd;
$fd->print("Hello\n");
$fd->close;
sysopen($fh,$FIFO,O_WRONLY);
}
$fh = new IO::File;
sysopen($fh,$FIFO,O_WRONLY);
Event->signal(signal=>'TERM',cb=>\&shutdown);
Event->io(fd=>$fh,cb=>\&say_hello, poll=>'w');
Event::loop;
In reply to Event-io and named pipes (ARGHHH:() by tgummels
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |