note
sleepingsquirrel
Run the program below and do a <code>kill -USR1</code>, to see it in action.
<code>
#!/usr/bin/perl -w
use IO::Select;
my $sel = new IO::Select (\*STDIN);
$SIG{USR1} = sub { print "signal\n"};
if (my @socks = $sel->can_read(50))
{
warn "Got Here\n";
}
else
{
warn "Else: $!\n";
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-309610">
<p><hr>-- All code is 100% tested and functional unless otherwise noted.
</div></div>
427056
427079