bughz
/
sigar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use SIGAR_NULL_HWADDR

This commit is contained in:
Doug MacEachern 2007-09-03 16:49:28 +00:00
parent 75f2f90b07
commit aeefb88b48
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/perl/Sigar.pm
View File

@ -38,7 +38,5 @@ else {
XSLoader::load(__PACKAGE__, $VERSION);
}
sub NULL_HWADDR() { "00:00:00:00:00:00" }
1;
__END__

4
bindings/perl/Sigar.xs
View File

@ -137,6 +137,9 @@ static int proc_env_getvalue(void *data,
#define XS_SIGAR_CONST_IV(name) \
(void)newCONSTSUB(stash, #name, newSViv(SIGAR_##name))
#define XS_SIGAR_CONST_PV(name) \
(void)newCONSTSUB(stash, #name, newSVpv(SIGAR_##name, 0))
static void boot_Sigar_constants(pTHX)
{
HV *stash = gv_stashpv("Sigar", TRUE);
@ -151,6 +154,7 @@ static void boot_Sigar_constants(pTHX)
XS_SIGAR_CONST_IV(IFF_PROMISC);
XS_SIGAR_CONST_IV(IFF_ALLMULTI);
XS_SIGAR_CONST_IV(IFF_MULTICAST);
XS_SIGAR_CONST_PV(NULL_HWADDR);
}
MODULE = Sigar PACKAGE = Sigar