[perl #41651] 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: http://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 "select\n";

}

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.wu@intel.com

phone:86-21-387-37917

 

• [perl #41651] bug in select functiion on ARM by Wu, Liu