From liu.wu@intel.com

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

From @smpeters

On Wed Feb 28 21​:39​:50 2007, liu.wu@​intel.com wrote​:

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

Can you try the following Perl program instead?

#! /usr/local/bin/perl
my $bits="";
my $timeout=3;
open READ,"html" or die $!;
vec($bit,fileno(READ),1)=1;
select($bit,undef,undef,$timeout) or die $!;

I'm assuming you are getting errors returned from open or select, but since you are not
handling the errors from those system calls, you are unable to tell there are errors.

Please let us know if you are not getting any error messages and it is still not working.

The RT System itself - Status changed from 'new' to 'open'

From liu.wu@intel.com

Thank you very much
Now I have already solve out this problems
The problems that block select()function is Endian convert.
Our target board is big endian .
But when I compile the source code of Perl, I neglect the endian convert.
So it's compile to default little endian.
When run on board .the select() function blocked.
I am sorry to disturb you so much because of my neglect.

-----Original Message-----
From​: Steve Peters via RT [mailto​:perlbug-followup@​perl.org]
Sent​: 2007年3月20日 11​:51
To​: Wu, Liu
Subject​: [perl #41651] bug in select functiion on ARM

On Wed Feb 28 21​:39​:50 2007, liu.wu@​intel.com wrote​:

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

Can you try the following Perl program instead?

#! /usr/local/bin/perl
my $bits="";
my $timeout=3;
open READ,"html" or die $!;
vec($bit,fileno(READ),1)=1;
select($bit,undef,undef,$timeout) or die $!;

I'm assuming you are getting errors returned from open or select, but since you are not
handling the errors from those system calls, you are unable to tell there are errors.

Please let us know if you are not getting any error messages and it is still not working.

@smpeters - Status changed from 'open' to 'resolved'

From @smpeters

Great! I'll close this ticket then. Thanks for responding regarding
what your resolution was.

Steve

On Tue, Mar 20, 2007 at 12​:50​:04PM +0800, Wu, Liu wrote​:

Thank you very much
Now I have already solve out this problems
The problems that block select()function is Endian convert.
Our target board is big endian .
But when I compile the source code of Perl, I neglect the endian convert.
So it's compile to default little endian.
When run on board .the select() function blocked.
I am sorry to disturb you so much because of my neglect.

-----Original Message-----
From​: Steve Peters via RT [mailto​:perlbug-followup@​perl.org]
Sent​: 2007年3月20日 11​:51
To​: Wu, Liu
Subject​: [perl #41651] bug in select functiion on ARM

On Wed Feb 28 21​:39​:50 2007, liu.wu@​intel.com wrote​:

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

Can you try the following Perl program instead?

#! /usr/local/bin/perl
my $bits="";
my $timeout=3;
open READ,"html" or die $!;
vec($bit,fileno(READ),1)=1;
select($bit,undef,undef,$timeout) or die $!;

I'm assuming you are getting errors returned from open or select, but since you are not
handling the errors from those system calls, you are unable to tell there are errors.

Please let us know if you are not getting any error messages and it is still not working.