File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/Cpanel/POSIX/Tiny.pm
Back
package Cpanel::POSIX::Tiny; our $VERSION = '1.3'; use AutoLoader; use XSLoader (); require Exporter; our @ISA = qw(Exporter); our @EXPORT = (); our @EXPORT_OK = qw(uname nice setsid pipe close times sysconf write closefds daemonclosefds dup2); our $AUTOLOAD; XSLoader::load 'Cpanel::POSIX::Tiny', $VERSION; my $EINVAL = constant( "EINVAL", 0 ); my $EAGAIN = constant( "EAGAIN", 0 ); sub AUTOLOAD { if ( $AUTOLOAD =~ /::(_?[a-z])/ ) { # require AutoLoader; $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } local $! = 0; my $constname = $AUTOLOAD; $constname =~ s/.*:://; my $val = constant( $constname, @_ ? $_[0] : 0 ); if ( $! == 0 ) { *$AUTOLOAD = sub { $val }; } elsif ( $! == $EAGAIN ) { # Not really a constant, so always call. *$AUTOLOAD = sub { constant( $constname, $_[0] ) }; } elsif ( $! == $EINVAL ) { die "$constname is not a valid POSIX macro"; } else { die "Your vendor has not defined POSIX macro $constname, used"; } goto &$AUTOLOAD; } 1; __END__
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.06 |
proxy
|
phpinfo
|
Settings