return number of sockets in read_cpuinfo
authorDietmar Maurer <dietmar@proxmox.com>
Mon, 26 Mar 2012 05:54:29 +0000 (07:54 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Mon, 26 Mar 2012 05:54:29 +0000 (07:54 +0200)
Makefile
data/PVE/ProcFSTools.pm
debian/changelog

index b244fa5..dd457b3 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
 RELEASE=2.0
 
 VERSION=1.0
 RELEASE=2.0
 
 VERSION=1.0
-PKGREL=21
+PKGREL=22
 
 PACKAGE=libpve-common-perl
 
 
 PACKAGE=libpve-common-perl
 
index 723fd42..bdb6e52 100644 (file)
@@ -20,6 +20,7 @@ sub read_cpuinfo {
        model => 'unknown',
        mhz => 0,
        cpus => 1,
        model => 'unknown',
        mhz => 0,
        cpus => 1,
+       sockets => 1,
     };
 
     my $fh = IO::File->new ($fn, "r");
     };
 
     my $fh = IO::File->new ($fn, "r");
@@ -35,7 +36,11 @@ sub read_cpuinfo {
            $res->{mhz} = $1 if !$res->{mhz};
        } elsif ($line =~ m/^flags\s*:.*(vmx|svm)/) {
            $res->{hvm} = 1; # Hardware Virtual Machine (Intel VT / AMD-V)
            $res->{mhz} = $1 if !$res->{mhz};
        } elsif ($line =~ m/^flags\s*:.*(vmx|svm)/) {
            $res->{hvm} = 1; # Hardware Virtual Machine (Intel VT / AMD-V)
+       } elsif ($line =~ m/^physical id\s*:\s*(\d+)\s*$/i) {
+           my $sid = $1 + 1;
+           $res->{sockets} = $sid if $sid > $res->{sockets};
        }
        }
+
     }
 
     $res->{cpus} = $count;
     }
 
     $res->{cpus} = $count;
index 3844561..85277a4 100644 (file)
@@ -1,3 +1,9 @@
+libpve-common-perl (1.0-22) unstable; urgency=low
+
+  * return number of sockets in read_cpuinfo
+
+ -- Proxmox Support Team <support@proxmox.com>  Mon, 26 Mar 2012 07:53:35 +0200
+
 libpve-common-perl (1.0-21) unstable; urgency=low
 
   * use Digest::SHA instead of Digest::SHA1
 libpve-common-perl (1.0-21) unstable; urgency=low
 
   * use Digest::SHA instead of Digest::SHA1