269        SELECT:
    270             {
    271                 my $nfound = select($rbits, $wbits, undef, $sel_timeout);
    272                 if ($nfound < 0) {
    273                     if ($!{EINTR} || $!{EAGAIN}) {
    274                         if ($time_before) {
    275                             $sel_timeout = $sel_timeout_before - (time - $time_before);
    276                             $sel_timeout = 0 if $sel_timeout < 0;
    277                         }
    278                         redo SELECT;
    279                     }
    280                     die "select failed: $!";
    281                 }
    282         }