simcop2387/sys-linux-namespace
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Proper return values from XS, and code should work

Browse source
This commit is contained in:
Ryan Voots 2017-05-03 21:18:47 -07:00
parent 9cac842191
commit 1023bb6f38
3 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/Sys/Linux/Mount.xs
View file

@ -12,11 +12,7 @@ PROTOTYPES: ENABLE
# 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
SV *_mount_sys(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);
ST(0) = sv_newmortal();
sv_setiv(ST(0), mount(source, target, filesystem, mountflags, (const void *) data));

7
lib/Sys/Linux/Unshare.xs
View file

@ -15,9 +15,8 @@ PROTOTYPES: ENABLE
# XS comments begin with " #" to avoid them being interpreted as pre-processor
# directives
int
_unshare_sys(flags)
int flags
SV * _unshare_sys(int flags)
CODE:
RETVAL = unshare(flags);
ST(0) = sv_newmortal();
sv_setiv(ST(0), unshare(flags));

13
t/02-namespace.t Normal file
View file

@ -0,0 +1,13 @@
use Test::More tests => 3;
# test 1
use_ok("Sys::Linux::Namespace", 'namespace');
# test 2
SKIP: {
skip "Need to be root to run test", 2 unless $< == 0;
ok(namespace({private_tmp => 1}), "Setup private /tmp");
# tmp is empty
is_deeply([glob "/tmp/*"], [], "/tmp is empty afterwards");
}