Re^5: IO::Select and alarm()

in reply to Re^4: IO::Select and alarm()
in thread IO::Select and alarm()

Since my code DOES seems to work correctly,

$ perl -MIO::Select -E'
   my $sel = IO::Select->new(\*STDIN);
   $SIG{ALRM} = sub { };
   alarm(1);
   while (my @ready = $sel->can_read()) {
      # ...
   }
   say "HERE";
'
HERE
[download]

The OP doesn't want to reach HERE, but apparently that's not a problem for you.

In Section Seekers of Perl Wisdom