bug in select functiion on ARM

# New Ticket Created by  "Wu, Liu" 
# Please include the string:  [perl #41651]
# in the subject line of all future correspondence about
this issue. 
# <URL: h
ttp://rt.perl.org/rt3/Ticket/Display.html?id=41651 >


HI,

When I port the perl-5.8.8 to ARM ( xscale platform ,Big
Endian ,
Montavista Linux professional edition 3.1) .

But I find it that the select () function in perl can't be
work well.
Such program like this :

 

#! /usr/local/bin/perl

my $bits="";

my $timeout=3;

open READ,"html";

vec($bit,fileno(READ),1)=1;

while(select($bit,undef,undef,$timeout)){

        print "selectn";

}

The progress is simple. Open the file (the "html "
file is exist ) .and
then call the select function to find out the opened file
descriptor 

Normally , it should print "select " on screen .
but unfortunately there
is nothing left on screen. 

For test the select system call. I program the c program to
test select
() system call. It can work well. That's also to say that
the system and
c library is no problem. 

So I doubt there are some problems on select function in
Perl. Since the
select function in Perl depend on select system call.

I don't know why?

I was looking forward to your replying 

Thank you 

 

 

Wu Liu

cubical:PD3-2II-B11

email:liu.wuintel.com

phone:86-21-387-37917