blob: ed18ab0d9b635eeabb696b979c5a7484270878d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
# NOTE: Derived from ..\..\lib\POSIX.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package POSIX::SigRt;
#line 1035 "..\..\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;
|
