diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al new file mode 100644 index 00000000000..30b6100a634 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al @@ -0,0 +1,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; |