blob: 30b6100a634e741af77978f6611dd09fca44fd15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# NOTE: Derived from ..\..\lib\POSIX.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package POSIX::SigRt;
#line 1025 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\new.al)"
sub new {
my ($rtsig, $handler, $flags) = @_;
my $sigset = POSIX::SigSet->new($rtsig);
my $sigact = POSIX::SigAction->new($handler,
$sigset,
$flags);
POSIX::sigaction($rtsig, $sigact);
}
# end of POSIX::SigRt::new
1;
|