22 lines
756 B
Text
22 lines
756 B
Text
#define PERL_NO_GET_CONTEXT // we'll define thread context if necessary (faster)
|
|
#include "EXTERN.h" // globals/constant import locations
|
|
#include "perl.h" // Perl symbols, structures and constants definition
|
|
#include "XSUB.h" // xsubpp functions and macros
|
|
#include <sys/mount.h>
|
|
|
|
MODULE = Sys::Linux::Mount PACKAGE = Sys::Linux::Mount
|
|
PROTOTYPES: ENABLE
|
|
|
|
# XS code goes here
|
|
|
|
# XS comments begin with " #" to avoid them being interpreted as pre-processor
|
|
# directives
|
|
|
|
int _mount_sys(source, target, filesystem, mountflags, data)
|
|
const char *source
|
|
const char *target
|
|
const char *filesystem
|
|
unsigned long mountflags
|
|
const char *data
|
|
CODE:
|
|
RETVAL = mount(source, target, filesystem, mountflags, (const void *) data);
|