1 #
   2 # Copyright (c) 2004, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # Ucred.pm provides the bootstrap for the Sun::Solaris::Ucred module.
   7 #
   8 
   9 require 5.8.4;
  10 use strict;
  11 use warnings;
  12 
  13 package Sun::Solaris::Ucred;
  14 
  15 our $VERSION = '1.3';
  16 use XSLoader;
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18 
  19 our (@EXPORT_OK, %EXPORT_TAGS);
  20 my @syscalls = qw(getpeerucred ucred_get);
  21 my @libcalls = qw(ucred_geteuid ucred_getruid ucred_getsuid ucred_getegid
  22         ucred_getrgid ucred_getsgid ucred_getgroups ucred_getprivset
  23         ucred_getpflags ucred_getpid ucred_getzoneid ucred_getprojid);
  24 
  25 @EXPORT_OK = (@syscalls, @libcalls);
  26 %EXPORT_TAGS = (SYSCALLS => \@syscalls, LIBCALLS => \@libcalls,
  27                 ALL => \@EXPORT_OK);
  28 
  29 require Exporter;

   1 #
   2 # Copyright (c) 2004, 2008, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 #
   6 # Ucred.pm provides the bootstrap for the Sun::Solaris::Ucred module.
   7 #
   8 
   9 require 5.0010;
  10 use strict;
  11 use warnings;
  12 
  13 package Sun::Solaris::Ucred;
  14 
  15 our $VERSION = '1.3';
  16 use XSLoader;
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18 
  19 our (@EXPORT_OK, %EXPORT_TAGS);
  20 my @syscalls = qw(getpeerucred ucred_get);
  21 my @libcalls = qw(ucred_geteuid ucred_getruid ucred_getsuid ucred_getegid
  22         ucred_getrgid ucred_getsgid ucred_getgroups ucred_getprivset
  23         ucred_getpflags ucred_getpid ucred_getzoneid ucred_getprojid);
  24 
  25 @EXPORT_OK = (@syscalls, @libcalls);
  26 %EXPORT_TAGS = (SYSCALLS => \@syscalls, LIBCALLS => \@libcalls,
  27                 ALL => \@EXPORT_OK);
  28 
  29 require Exporter;