From 60851c96e3603cb56b3ea54527af7235a19e8e59 Mon Sep 17 00:00:00 2001
From: Frodo Looijaard <frodol@dds.nl>
Date: Wed, 15 Mar 2000 00:26:50 +0000
Subject: [PATCH] Fixed previous sensors-detect correction :-(

git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@775 7894878c-1315-0410-8ee3-d5d059ff63e0
---
 prog/detect/sensors-detect | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect
index 5528035a..b98059dc 100755
--- a/prog/detect/sensors-detect
+++ b/prog/detect/sensors-detect
@@ -651,13 +651,16 @@ sub read_proc_pci
   open INPUTFILE, "/proc/pci" or return;
   while (<INPUTFILE>) {
     my $record = {};
-    if (($record->{bus}+0,$record->{slot}+0,$record->{func}+0) = 
+    if (($record->{bus},$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 (($desc =~ /Unknown device/) and
+      if (($desc =~ /Unknown device/) and
               (($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;
       }
       push @pci_list,$record;