view release on metacpan or  search on metacpan

lib/Apache/LoadAvgLimit/GetAvg.xs  view on Meta::CPAN

/* PROTOTYPES: DISABLE */
MODULE = Apache::LoadAvgLimit::GetAvg	PACKAGE = Apache::LoadAvgLimit::GetAvg

void
get_loadavg()
	PREINIT:
	double avenrun[3];
	char avg[3][8];
	int i;

	PPCODE:
	if (getloadavg(avenrun, sizeof(avenrun) / sizeof(avenrun[0])) != -1){
		EXTEND(SP, 3);
		for(i=0; i<=2; i++){
			sprintf(avg[i], "%.2f", avenrun[i]);
			PUSHs(sv_2mortal(newSVpv( avg[i], 0 )));
		}
	}