src/PVE/Syscall.pm

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