view release on metacpan or  search on metacpan

Driver.xs  view on Meta::CPAN

}

MODULE = Eixo::Zone::Driver	PACKAGE = Eixo::Zone::Driver

PROTOTYPES: ENABLE

SV * mi_setns(fichero, tipo_ns)

	InputStream	fichero
	int	tipo_ns
PPCODE:
		
	int fd = -1;
	
	ST(0) = sv_newmortal();
	
	fd = PerlIO_fileno(fichero);
	
	if(setns(fd, tipo_ns) == 0)
		XPUSHs(sv_2mortal(newSVnv(0)));
	else

Driver.xs  view on Meta::CPAN

	RETVAL = 0;
	RETVAL = (long)getpid();

	OUTPUT:
	RETVAL	


SV * mi_unshare(flags)

	int flags
PPCODE:

	ST(0) = sv_newmortal();

	if(unshare(flags) == 0)
		XPUSHs(sv_2mortal(newSVnv(0)));
	else
		XPUSHs(sv_2mortal(newSVnv(errno)));

	
int mi_clone (SV *sub, IV stacksize, int flags, SV *ptid = 0, SV *tls = &PL_sv_undef)

Driver.xs  view on Meta::CPAN

                munmap (stack_ptr, stacksize);
                errno = old_errno;
              }
          }
}
	OUTPUT:
        RETVAL

#include <sys/vfs.h>
void mi_caps()
	PPCODE:

		cap_t caps;

		caps = cap_get_proc();
	
		char * caps_string = cap_to_text(caps, NULL);

		XPUSHs(sv_2mortal(newSVpv(caps_string, strlen(caps_string))));