File: CVE-2025-40909-metaconfig.diff

package info (click to toggle)
perl 5.40.1-7
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 126,156 kB
  • sloc: ansic: 668,539; perl: 525,522; sh: 72,038; pascal: 6,925; xml: 2,428; yacc: 1,410; makefile: 1,191; cpp: 208; lisp: 1
file content (45 lines) | stat: -rw-r--r-- 1,670 bytes parent folder | download | duplicates (3)
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
+