[pve-common.git] / src / PVE / Syscall.pm

package PVE::Syscall;

my %syscalls;
BEGIN {
    die "syscall.ph can only be required once!\n" if $INC{'syscall.ph'};
    require("syscall.ph");
    %syscalls = (
	unshare => &SYS_unshare,
	setns => &SYS_setns,
	syncfs => &SYS_syncfs,
	fsync => &SYS_fsync,
	openat => &SYS_openat,
	close => &SYS_close,
	mkdirat => &SYS_mkdirat,
	faccessat => &SYS_faccessat,
	setresuid => &SYS_setresuid,
    );
};

use constant \%syscalls;

use base 'Exporter';

our @EXPORT_OK   = keys(%syscalls);
Commit	Line	Data
c8e94d4b TL	1	package PVE::Syscall;
	2
	3	my %syscalls;
	4	BEGIN {
	5	die "syscall.ph can only be required once!\n" if $INC{'syscall.ph'};
	6	require("syscall.ph");
	7	%syscalls = (
	8	unshare => &SYS_unshare,
	9	setns => &SYS_setns,
	10	syncfs => &SYS_syncfs,
cee0e23a	11	fsync => &SYS_fsync,
c8e94d4b TL	12	openat => &SYS_openat,
	13	close => &SYS_close,
	14	mkdirat => &SYS_mkdirat,
	15	faccessat => &SYS_faccessat,
0c078e66	16	setresuid => &SYS_setresuid,
c8e94d4b TL	17	);
	18	};
	19
	20	use constant \%syscalls;
	21
	22	use base 'Exporter';
	23
	24	our @EXPORT_OK = keys(%syscalls);