summaryrefslogtreecommitdiffstats
path: root/debian/clean_config_vars
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 06:33:51 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 06:33:51 +0000
commit4f0770f3df78ecd5dcaefbd214f7a1415366bca6 (patch)
tree72661b8f81594b855bcc967b819263f63fa30e17 /debian/clean_config_vars
parentAdding upstream version 2.4.56. (diff)
downloadapache2-4f0770f3df78ecd5dcaefbd214f7a1415366bca6.tar.xz
apache2-4f0770f3df78ecd5dcaefbd214f7a1415366bca6.zip
Adding debian version 2.4.56-1~deb11u2.debian/2.4.56-1_deb11u2
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/clean_config_vars')
-rwxr-xr-xdebian/clean_config_vars57
1 files changed, 57 insertions, 0 deletions
diff --git a/debian/clean_config_vars b/debian/clean_config_vars
new file mode 100755
index 0000000..9611f9a
--- /dev/null
+++ b/debian/clean_config_vars
@@ -0,0 +1,57 @@
+#! /usr/bin/perl
+
+use strict;
+
+my %FLAGS = {
+ 'CFLAGS' => $ARGV[0],
+ 'CPPFLAGS' => $ARGV[1],
+ 'LDDFLAGS' => $ARGV[2],
+ 'CXXFLAGS' => $ARGV[3],
+};
+
+sub clean_and_deduplicate {
+ my $arg = shift;
+ my $return_flags = "";
+ my @flags = split( /\s+/, $arg );
+ my %seen = ();
+ my @flags = grep { !$seen{$_}++ } @flags;
+ foreach my $flag (@flags) {
+
+ #print("FLAG: $flag\n");
+ $return_flags .= "$flag "
+ unless $flag =~ m/PLATFORM/
+ || $flag =~ m/-DBUILD_DATETIME/
+ || $flag =~ m/-fdebug-prefix-map/
+ || $flag =~ m/-ffile-prefix-map/;
+ }
+ return $return_flags;
+}
+
+chdir("debian/tmp/usr/share/apache2/build/") || die("$1");
+
+open( CONFIG_VARS, "<", "config_vars.mk" ) || die("config_vars.mk: $!");
+open( TMP_CONFIG_VARS, ">", "tmp_config_vars.mk" )
+ || die("tmp_config_vars.mk: $1");
+
+while ( my $line = <CONFIG_VARS> ) {
+ chomp $line;
+ unless ( $line =~ m/(^|_)(LD|CPP|C|CXX)FLAGS/ ) {
+ print TMP_CONFIG_VARS "$line\n";
+ }
+ else {
+ my ( $flag, $value ) = split( /\s*=\s*/, $line, 2 );
+ if ( exists $FLAGS{$flag} ) {
+ $value .= ' ' . $FLAGS{$flag};
+ }
+ my $mangled = clean_and_deduplicate($value);
+ print "mangle: $flag: '$value' => '$mangled'\n";
+ printf TMP_CONFIG_VARS "%s = %s\n", $flag, $mangled;
+ }
+}
+
+close(CONFIG_VARS);
+close(TMP_CONFIG_VARS);
+
+unlink("config_vars.mk") || die("unlink: config_vars.mk: $1");
+rename( "tmp_config_vars.mk", "config_vars.mk" )
+ || die("rename: tmp_config_vars.mk: $1");