Changeset 775

Timestamp:

03/15/00 01:26:50 (9 years ago)

Author:

frodo

Message:

Fixed previous sensors-detect correction :-(

Files:

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

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

@@ -652 +652 @@
-  while (<INPUTFILE>) {
-    my $record = {};
-+0,$record->{slot}+0,$record->{func}+0
+,$record->{slot},$record->{func}
-        /^\s*Bus\s*(\S)+\s*,\s*device\s*(\S+)\s*,\s*function\s*(\S+)\s*:\s*$/) {
-      my $desc = <INPUTFILE>;
-      $_ = <INPUTFILE>;
-unless
+if
-              (($record->{vendid},$record->{devid}) = 
-                         /^\s*Vendor id=(\S+)\.\s*Device id=(\S+)\.$/)) {
+        $record->{vendid} = hex $record->{vendid};
+        $record->{devid} = hex $record->{devid};
+      } else {
-        $record->{desc} = $desc;
-      }