1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
From: "H.Merijn Brand" <perl5@tux.freedom.nl>
Date: Tue, 3 Jun 2025 09:20:20 +0200
Subject: Check for fdopendir
Origin: backport, https://github.com/Perl/metaconfig/commit/0a72a5cecd3e17abe67be61dd2916b6d0cb6f398
Bug: https://github.com/Perl/perl5/issues/23010
Bug-Debian: https://bugs.debian.org/1098226
---
regen-configure/U/perl/d_fdopendir.U | 27 +++++++++++++++++++++++++++
1 file changed, 27 insertions(+)
create mode 100644 regen-configure/U/perl/d_fdopendir.U
diff --git a/regen-configure/U/perl/d_fdopendir.U b/regen-configure/U/perl/d_fdopendir.U
new file mode 100644
index 0000000..5d6c20c
--- /dev/null
+++ b/regen-configure/U/perl/d_fdopendir.U
@@ -0,0 +1,27 @@
+?RCS: Copyright (c) 2025 H.Merijn Brand
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic License,
+?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 License; a copy of which may be found at the
+?RCS: root of the source tree for dist 4.0.
+?RCS:
+?MAKE:d_fdopendir: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_fdopendir:
+?S: This variable conditionally defines HAS_FDOPENDIR if fdopendir() is
+?S: available to open a directory using an opened file descriptor already
+?S: referring to that directory.
+?S:.
+?C:HAS_FDOPENDIR:
+?C: This symbol, if defined, indicates that the fdopendir() routine is
+?C: available to open directories using an opened file descriptor already
+?C: referring to that directory.
+?C:.
+?H:#$d_fdopendir HAS_FDOPENDIR /**/
+?H:.
+?LINT:set d_fdopendir
+: see if fdopendir exists
+set fdopendir d_fdopendir
+eval $inlibc
+
|