[packages/perl.git] / perl_580-errno_h-parsing.patch

diff -urNp -x '*.orig' perl-5.32.1.org/ext/Errno/Errno_pm.PL perl-5.32.1/ext/Errno/Errno_pm.PL
--- perl-5.32.1.org/ext/Errno/Errno_pm.PL	2020-12-18 11:04:36.000000000 +0100
+++ perl-5.32.1/ext/Errno/Errno_pm.PL	2021-04-01 22:48:31.609573602 +0200
@@ -67,6 +67,13 @@ sub process_file {
             warn "Cannot open '$file'";
             return;
 	}     
+    } elsif ($^O eq 'linux') {
+	# With the -dM option option, gcc outputs every #define's it finds
+	my $cpp = default_cpp();
+	unless(open(FH, "$cpp -dM < $file |")) {
+            warn "Cannot open '$file'";
+            return;
+	}
     } else {
 	unless(open(FH, '<', $file)) {
 	    # This file could be a temporary file created by cppstdin
Commit	Line	Data
	1	diff -urNp -x '*.orig' perl-5.32.1.org/ext/Errno/Errno_pm.PL perl-5.32.1/ext/Errno/Errno_pm.PL
	2	--- perl-5.32.1.org/ext/Errno/Errno_pm.PL 2020-12-18 11:04:36.000000000 +0100
	3	+++ perl-5.32.1/ext/Errno/Errno_pm.PL 2021-04-01 22:48:31.609573602 +0200
	4	@@ -67,6 +67,13 @@ sub process_file {
	5	warn "Cannot open '$file'";
	6	return;
	7	}
	8	+ } elsif ($^O eq 'linux') {
	9	+ # With the -dM option option, gcc outputs every #define's it finds
	10	+ my $cpp = default_cpp();
	11	+ unless(open(FH, "$cpp -dM < $file \|")) {
	12	+ warn "Cannot open '$file'";
	13	+ return;
	14	+ }
	15	} else {
	16	unless(open(FH, '<', $file)) {
	17	# This file could be a temporary file created by cppstdin