Mini Shell
Mini Shell
| Direktori : /home/rs/perl/5.12/lib/perl5/5.12/mach/auto/POSIX/SigRt/ |
| Current File : /home/rs/perl/5.12/lib/perl5/5.12/mach/auto/POSIX/SigRt/FETCH.al |
# 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;