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 9require 5.8.4; 10use strict; 11use warnings; 12 13package Sun::Solaris::Ucred; 14 15our $VERSION = '1.3'; 16use XSLoader; 17XSLoader::load(__PACKAGE__, $VERSION); 18 19our (@EXPORT_OK, %EXPORT_TAGS); 20my @syscalls = qw(getpeerucred ucred_get); 21my @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 29require Exporter; 30 31use base qw(Exporter Sun::Solaris::Privilege); 32 33use Sun::Solaris::Utils qw(gettext); 34 351; 36__END__ 37