[Summary view] [Print] [Text view]

   1  # NOTE: Derived from ../../lib/POSIX.pm.
   2  # Changes made here will be lost when autosplit is run again.
   3  # See AutoSplit.pm.
   4  package POSIX::SigRt;
   5  
   6  #line 1010 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/SigRt/_getsig.al)"
   7  sub _getsig {
   8      &_croak;
   9      my $rtsig = $_[0];
  10      # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
  11      $rtsig = $_SIGRTMIN + ($1 || 0)
  12      if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
  13      return $rtsig;
  14  }
  15  
  16  # end of POSIX::SigRt::_getsig
  17  1;