Changeset 1774

Timestamp:

06/08/03 22:24:51 (10 years ago)

Author:

mds

Message:

C format fix from Jim Morris <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);

Files:

• lm-sensors/trunk/prog/detect/sensors-detect (modified) (1 diff)

lm-sensors/trunk/prog/detect/sensors-detect

@@ -1310 +1310 @@
 sub outb
 {
-  my $towrite = pack "C", $_[1];
+  my $towrite = pack("C", $_[1] & 0x7f);
   sysseek IOPORTS, $_[0], 0 or return -1;
   my $nrchars = syswrite IOPORTS, $towrite, 1;