Current Path :
/
usr
/
local
/
ssl
/
lib64
/
perl5
/
auto
/
POSIX
/
SigRt
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/local/ssl/lib64/perl5/auto/POSIX/SigRt/_getsig.al
# NOTE: Derived from ../../lib/POSIX.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package POSIX::SigRt; #line 1003 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/SigRt/_getsig.al)" sub _getsig { &_croak; my $rtsig = $_[0]; # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C. $rtsig = $_SIGRTMIN + ($1 || 0) if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/; return $rtsig; } # end of POSIX::SigRt::_getsig 1;
