Bug 669 & 670 - Build errors with RVCT 4.0: Error: #504-D: nonstandard form for taking the address of a member function
#!/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";