# NOTE: Derived from ../../lib/POSIX.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package POSIX::SigRt; #line 1010 "../../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;