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

@@ -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+)\.$/)) {