Perl binding updates

Submitted by: Nicolas Laurent
This commit is contained in:
Doug MacEachern 2007-02-22 03:52:03 +00:00
parent 85407d98b4
commit 6a926ec91d
2 changed files with 28 additions and 0 deletions

View File

@ -1,5 +1,8 @@
2007-02-21 Doug MacEachern <dougm@hyperic.com> 2007-02-21 Doug MacEachern <dougm@hyperic.com>
* Perl binding updates
Submitted by: Nicolas Laurent
* [SIGAR-45] Fix disk reads/writes for LVM managed volumes * [SIGAR-45] Fix disk reads/writes for LVM managed volumes
2007-02-15 Doug MacEachern <dougm@hyperic.com> 2007-02-15 Doug MacEachern <dougm@hyperic.com>

View File

@ -246,6 +246,31 @@ cpu_info_list(sigar)
OUTPUT: OUTPUT:
RETVAL RETVAL
SV *
cpu_list(sigar)
Sigar sigar
PREINIT:
sigar_cpu_list_t cpus;
int status;
CODE:
status = sigar_cpu_list_get(sigar, &cpus);
if (status != SIGAR_OK) {
SIGAR_CROAK(sigar, "cpu_list");
}
RETVAL = convert_2svav((char *)&cpus.data[0],
cpus.number,
sizeof(*cpus.data),
"Sigar::Cpu");
sigar_cpu_list_destroy(sigar, &cpus);
OUTPUT:
RETVAL
SV * SV *
proc_list(sigar) proc_list(sigar)
Sigar sigar Sigar sigar