[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,
	openat => &SYS_openat,
	close => &SYS_close,
	mkdirat => &SYS_mkdirat,
	faccessat => &SYS_faccessat,
    );
};

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,
	11	openat => &SYS_openat,
	12	close => &SYS_close,
	13	mkdirat => &SYS_mkdirat,
	14	faccessat => &SYS_faccessat,
	15	);
	16	};
	17
	18	use constant \%syscalls;
	19
	20	use base 'Exporter';
	21
	22	our @EXPORT_OK = keys(%syscalls);