Select Code to Download

C:\test>asyncServer2.pl
Perl -v: 5.016001
...
sub FD_COUNT () {1}
sub FIRST_FD () {2}

   } else {      # remove
     if ( ! defined $fn ) { # remove if fileno undef'd
...
     vec($bits, $fn, 1) = 0;
     $vec->[$i] = undef;
   }