my($rready, $wready) = $select_class->select($rb, $wb);

##</code><code>##

sub select
{
 shift
   if defined $_[0] && !ref($_[0]);

 my($r,$w,$e,$t) = @_;
 my @result = ();

 my $rb = defined $r ? $r->[VEC_BITS] : undef;
 my $wb = defined $w ? $w->[VEC_BITS] : undef;
 my $eb = defined $e ? $e->[VEC_BITS] : undef;

 if(select($rb,$wb,$eb,$t) > 0)
  {
   my @r = ();
   my @w = ();
   my @e = ();
   my $i = _max(defined $r ? scalar(@$r)-1 : 0,
                defined $w ? scalar(@$w)-1 : 0,
                defined $e ? scalar(@$e)-1 : 0);

   for( ; $i >= FIRST_FD ; $i--)
    {
     my $j = $i - FIRST_FD;
     push(@r, $r->[$i])
        if defined $rb && defined $r->[$i] && vec($rb, $j, 1);
     push(@w, $w->[$i])
        if defined $wb && defined $w->[$i] && vec($wb, $j, 1);
     push(@e, $e->[$i])
        if defined $eb && defined $e->[$i] && vec($eb, $j, 1);
    }

   @result = (\@r, \@w, \@e);
  }
 @result;
}

##</code><code>##

  CPAN.pm: Going to build G/GB/GBARR/IO-1.20.tar.gz

Checking for Socket...ok
Checking if your kit is complete...
Looks good
Writing Makefile for IO
cp IO/Dir.pm blib/lib/IO/Dir.pm
cp IO/Handle.pm blib/lib/IO/Handle.pm
cp IO/Socket/INET.pm blib/lib/IO/Socket/INET.pm
cp IO/Poll.pm blib/lib/IO/Poll.pm
cp IO/Pipe.pm blib/lib/IO/Pipe.pm
cp IO/Seekable.pm blib/lib/IO/Seekable.pm
cp IO/Socket.pm blib/lib/IO/Socket.pm
cp IO/Select.pm blib/lib/IO/Select.pm
cp IO/File.pm blib/lib/IO/File.pm
cp IO.pm blib/lib/IO.pm
cp IO/Socket/UNIX.pm blib/lib/IO/Socket/UNIX.pm
/usr/local/bin/perl /usr/local/lib/perl5/5.8.6/ExtUtils/xsubpp  -typemap /usr/local/lib/perl5/5.8.6/ExtUtils/typemap  IO.xs > IO.xsc &&mv IO.xsc IO.c
cc -c   -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2   -DVERSION=\"1.20\" -DXS_VERSION=\"1.20\" -fpic "-I/usr/local/lib/perl5/5.8.6/i686-linux-thread-multi/CORE"  -DI_POLL  IO.c
In file included from /usr/local/lib/perl5/5.8.6/i686-linux-thread-multi/CORE/perl.h:37,
                 from IO.xs:9:
/usr/local/lib/perl5/5.8.6/i686-linux-thread-multi/CORE/config.h:3017:1: warning: "I_POLL" redefined
<command line>:8:1: warning: this is the location of the previous definition
IO.xs: In function `XS_IO__Seekable_getpos':
IO.xs:201: warning: passing arg 2 of `PerlIO_getpos' from incompatible pointer type
IO.xs:208: error: `sv_undef' undeclared (first use in this function)
IO.xs:208: error: (Each undeclared identifier is reported only once
IO.xs:208: error: for each function it appears in.)
IO.xs: In function `XS_IO__Seekable_setpos':
IO.xs:219: warning: passing arg 2 of `PerlIO_setpos' from incompatible pointer type
IO.xs: In function `XS_IO__File_new_tmpfile':
IO.xs:252: error: `sv_undef' undeclared (first use in this function)
make: *** [IO.o] Error 1
  /usr/bin/make  -- NOT OK
Running make test
  Can't test without successful make
Running make install
  make had returned bad status, install seems impossible