Backport some commits from Zefram

diff --git a/U/perl/d_accept4.U b/U/perl/d_accept4.U
new file mode 100644 (file)
index 0000000..47c2157
--- /dev/null
+++ b/U/perl/d_accept4.U
@@ -0,0 +1,25 @@
+?RCS: Copyright (c) 2017-2018, H.Merijn Brand
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?MAKE:d_accept4: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_accept4:
+?S:    This variable conditionally defines HAS_ACCEPT4 if accept4() is
+?S:    available to accept socket connections.
+?S:.
+?C:HAS_ACCEPT4:
+?C:    This symbol, if defined, indicates that the accept4 routine is
+?C:    available to accept socket connections.
+?C:.
+?H:#$d_accept4 HAS_ACCEPT4     /**/
+?H:.
+?LINT:set d_accept4
+: see if accept4 exists
+set accept4 d_accept4
+eval $inlibc
+

diff --git a/U/perl/d_dup3.U b/U/perl/d_dup3.U
new file mode 100644 (file)
index 0000000..57d9bcd
--- /dev/null
+++ b/U/perl/d_dup3.U
@@ -0,0 +1,25 @@
+?RCS: Copyright (c) 2017-2018, H.Merijn Brand
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?MAKE:d_dup3: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_dup3:
+?S:    This variable conditionally defines HAS_DUP3 if dup3() is
+?S:    available to duplicate file descriptors.
+?S:.
+?C:HAS_DUP3:
+?C:    This symbol, if defined, indicates that the dup3 routine is
+?C:    available to duplicate file descriptors.
+?C:.
+?H:#$d_dup3 HAS_DUP3   /**/
+?H:.
+?LINT:set d_dup3
+: see if dup3 exists
+set dup3 d_dup3
+eval $inlibc
+

diff --git a/U/perl/d_mkostemp.U b/U/perl/d_mkostemp.U
new file mode 100644 (file)
index 0000000..82717c6
--- /dev/null
+++ b/U/perl/d_mkostemp.U
@@ -0,0 +1,27 @@
+?RCS: Copyright (c) 2017-2018, H.Merijn Brand
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?MAKE:d_mkostemp: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_mkostemp:
+?S:    This variable conditionally defines HAS_MKOSTEMP if mkostemp() is
+?S:    available to exclusively create and open a uniquely named (with a
+?S:    suffix) temporary file.
+?S:.
+?C:HAS_MKOSTEMP:
+?C:    This symbol, if defined, indicates that the mkostemp routine is
+?C:    available to exclusively create and open a uniquely named (with a
+?C:    suffix) temporary file.
+?C:.
+?H:#$d_mkostemp HAS_MKOSTEMP   /**/
+?H:.
+?LINT:set d_mkostemp
+: see if mkostemp exists
+set mkostemp d_mkostemp
+eval $inlibc
+

diff --git a/U/perl/d_pipe2.U b/U/perl/d_pipe2.U
new file mode 100644 (file)
index 0000000..a178fdc
--- /dev/null
+++ b/U/perl/d_pipe2.U
@@ -0,0 +1,26 @@
+?RCS: Copyright (c) 2018-2018, H.Merijn Brand
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?MAKE:d_pipe2: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_pipe2:
+?S:    This variable conditionally defines the HAS_PIPE2 symbol, which
+?S:    indicates to the C program that the pipe2() routine is available
+?S:    to create an inter-process channel.
+?S:.
+?C:HAS_PIPE2:
+?C:    This symbol, if defined, indicates that the pipe2 routine is
+?C:    available to create an inter-process channel.
+?C:.
+?H:#$d_pipe2 HAS_PIPE2         /**/
+?H:.
+?LINT:set d_pipe2
+: see if pipe2 exists
+set pipe2 d_pipe2
+eval $inlibc
+