# NOTE: Derived from ..\..\lib\POSIX.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package POSIX::SigRt; #line 1030 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\FETCH.al)" sub FETCH { my $rtsig = &_check; my $oa = POSIX::SigAction->new(); POSIX::sigaction($rtsig, undef, $oa); return $oa->{HANDLER} } # end of POSIX::SigRt::FETCH 1;