[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 1042 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/SigRt/FETCH.al)"
   7  sub FETCH  { my $rtsig = &_check;
   8           my $oa = POSIX::SigAction->new();
   9           POSIX::sigaction($rtsig, undef, $oa);
  10           return $oa->{HANDLER} }
  11  # end of POSIX::SigRt::FETCH
  12  1;