soloution to tickets 1263 & 1223

soloution to tickets 1263 & 1223

[Jim Morris]

This seems to happen on newer perl versions. It is fatal in as much as 
the sensors are not detected. The solution appears to be to simply add & 
0x7f to the pack statement at line 1138 of sensors_detect...

sub outb
{
   my $towrite = pack( "C", $_[1] & 0x7f);


hope this helps

soloution to tickets 1263 & 1223

[Mark D. Studebaker]

checked in.
thank you very much.

Jim Morris wrote:
> This seems to happen on newer perl versions. It is fatal in as much as 
> the sensors are not detected. The solution appears to be to simply add & 
> 0x7f to the pack statement at line 1138 of sensors_detect...
> 
> sub outb
> {
>   my $towrite = pack( "C", $_[1] & 0x7f);
> 
> 
> hope this helps
> 

soloution to tickets 1263 & 1223

[Jim Morris]

You are welcome...

However be warned that this means no bytes can be written that are
greater than 0x7F using the outb function.

The actual bug appears to be that the isa scanning routine is passing in
bytes that have values greater than 0xFF, which means they are not bytes.
However & 0xFF does not fix the error in the outb routine.

On Sun, 08 Jun 2003 16:19:59 -0400
"Mark D. Studebaker " <mds@paradyne.com> wrote:

mds> 
mds> checked in.
mds> thank you very much.
mds> 
mds> Jim Morris wrote:
mds> > This seems to happen on newer perl versions. It is fatal in as much as 
mds> > the sensors are not detected. The solution appears to be to simply add & 
mds> > 0x7f to the pack statement at line 1138 of sensors_detect...
mds> > 
mds> > sub outb
mds> > {
mds> >   my $towrite = pack( "C", $_[1] & 0x7f);
mds> > 
mds> > 
mds> > hope this helps
mds> > 
mds> 

--
Jim Morris morris@wolfman.com

soloution to tickets 1263 & 1223

[Jim Morris]

Hi,

I stumbled on the actual problem here :)

Redhat 9 set the LANG to US_en- UTF8

Th eoperative word here is UTF8, which means that characters are not
always one byte. Also I think there is a bug in th eversion of perl they
ship, so the pack "C", $_[1] is taking an 16 bit character (which should be
one byte) and compalins of an overflow error.

Many programs are suffering from this bug it seems.

I'm not sure of the solution to your script, except the work around is
probably not the patch I sent you, but instead to do an export
LANG=US_en before running your script.

Probably everything that calls outb should check it is sending a byte
not a char. Or put a warning about redhat9 in the Readme or FAQ.

I would actually recommend you take out the patch I sent.


On Sun, 08 Jun 2003 16:19:59 -0400
"Mark D. Studebaker " <mds@paradyne.com> wrote:

mds> 
mds> checked in.
mds> thank you very much.
mds> 
mds> Jim Morris wrote:
mds> > This seems to happen on newer perl versions. It is fatal in as much as 
mds> > the sensors are not detected. The solution appears to be to simply add & 
mds> > 0x7f to the pack statement at line 1138 of sensors_detect...
mds> > 
mds> > sub outb
mds> > {
mds> >   my $towrite = pack( "C", $_[1] & 0x7f);
mds> > 
mds> > 
mds> > hope this helps
mds> > 
mds> 

--
Jim Morris morris@wolfman.com