summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al
blob: 0da3e9643cc40c8e4e1e99e2fc927862df5a659b (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 1020 "..\..\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;