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         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);