From 9d2d3b4c916afa87843f892074a89404e1dd6809 Mon Sep 17 00:00:00 2001
From: Frodo Looijaard <frodol@dds.nl>
Date: Tue, 14 Mar 2000 23:55:39 +0000
Subject: [PATCH] Steve Beer's sensors-detect fixes for i2c-i801, with a twist

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

diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect
index e0d314c6..5528035a 100755
--- a/prog/detect/sensors-detect
+++ b/prog/detect/sensors-detect
@@ -62,7 +62,7 @@ use vars qw(@pci_adapters @chip_ids @undetectable_adapters);
        func => 3,
        procid => "Intel 82801AA ICH",
        driver => "i2c-i801",
-       match => sub { $_[0] =~ /^SMBus i801AA adapter at [0-9,a-f]{4}/ },
+       match => sub { $_[0] =~ /^SMBus I801 adapter at [0-9,a-f]{4}/ },
      } , 
      { 
        vendid => 0x8086,
@@ -651,9 +651,10 @@ sub read_proc_pci
   open INPUTFILE, "/proc/pci" or return;
   while (<INPUTFILE>) {
     my $record = {};
-    if (($record->{bus},$record->{slot},$record->{func}) = 
+    if (($record->{bus}+0,$record->{slot}+0,$record->{func}+0) = 
         /^\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
               (($record->{vendid},$record->{devid}) = 
                          /^\s*Vendor id=(\S+)\.\s*Device id=(\S+)\.$/)) {