webengine/osswebengine/WebKitTools/Scripts/num-cpus
author andy simpson <andrews@symbian.org>
Mon, 14 Dec 2009 16:23:31 +0000
branchRCL_1
changeset 20 5c0a4bf7051b
parent 0 dd21522fd290
permissions -rw-r--r--
Added tag PDK_2.0.2 for changeset e9f2e9160591

#!/usr/bin/perl

use strict;
use warnings;

use Win32API::Registry 0.21 qw( :ALL );


my $key;
my $i = 0;
while (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\$i", 0, KEY_READ, $key)) {
    $i++;
    RegCloseKey($key);
}

print "$i\n";