U/perl/d_dup3.U

   1 ?RCS: Copyright (c) 2017-2018, H.Merijn Brand
   2 ?RCS:
   3 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   4 ?RCS: as specified in the README file that comes with the distribution.
   5 ?RCS: You may reuse parts of this distribution only within the terms of
   6 ?RCS: that same Artistic Licence; a copy of which may be found at the root
   7 ?RCS: of the source tree for dist 4.0.
   8 ?RCS:
   9 ?MAKE:d_dup3: Inlibc
  10 ?MAKE:  -pick add $@ %<
  11 ?S:d_dup3:
  12 ?S:     This variable conditionally defines HAS_DUP3 if dup3() is
  13 ?S:     available to duplicate file descriptors.
  14 ?S:.
  15 ?C:HAS_DUP3:
  16 ?C:     This symbol, if defined, indicates that the dup3 routine is
  17 ?C:     available to duplicate file descriptors.
  18 ?C:.
  19 ?H:#$d_dup3 HAS_DUP3    /**/
  20 ?H:.
  21 ?LINT:set d_dup3
  22 : see if dup3 exists
  23 set dup3 d_dup3
  24 eval $inlibc
  25