$OpenBSD: patch-pgcluu,v 1.2 2016/01/06 09:48:28 jasper Exp $

- Set $sysinfo{"KERNEL"} and $sysinfo{"CPU"} (minus cache) values

--- pgcluu.orig	Sat Jul 25 12:33:53 2015
+++ pgcluu	Tue Jan  5 20:19:31 2016
@@ -8500,13 +8500,13 @@ sub read_sysinfo
 			next;
 		}
 		if ($section eq 'CPU') {
-			my ($key, $val) = split(/\s+:\s+/, $l);
-			if ($key eq 'processor') {
-				$sysinfo{$section}{$key} = $val + 1;
-			} elsif ($key eq 'model name') {
-				$val =~ s/\s+\@\s+(.*)$//;
-				$sysinfo{$section}{'cpu MHz'} = $1;
-				$sysinfo{$section}{$key} = $val;
+			my ($key, $val) = split(/=/, $l);
+			if ($key eq 'hw.ncpu') {
+				$sysinfo{$section}{'processor'} = $val;
+			} elsif ($key eq 'hw.model') {
+				$sysinfo{$section}{'model name'} = $val;
+			} elsif ($key eq 'hw.cpuspeed') {
+				$sysinfo{$section}{'cpu MHz'} = $val;
 			} else {
 				$sysinfo{$section}{$key} = $val;
 			}
@@ -8514,8 +8514,8 @@ sub read_sysinfo
 		if ($section eq 'KERNEL') {
 			my @kinf = split(/\s+/, $l);
 			$sysinfo{$section}{'hostname'} = $kinf[1];
-			$sysinfo{$section}{'kernel'} = "$kinf[0] $kinf[2] $kinf[3] $kinf[4]";
-			$sysinfo{$section}{'arch'} = "$kinf[-2] $kinf[-1]";
+			$sysinfo{$section}{'kernel'} = "$kinf[2] $kinf[3]";
+			$sysinfo{$section}{'arch'} = "$kinf[-1]";
 		}
 		if ($section eq 'RELEASE') {
 			my ($key, $val) = split(/=/, $l);
