summaryrefslogtreecommitdiff
path: root/release-process
diff options
context:
space:
mode:
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>2019-10-05 16:43:36 +0200
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>2019-10-05 16:47:31 +0200
commitb3fadca5c268341624e52efa9bd7b7ee6a1de2d1 (patch)
treef16a88893ea8a11f4154208ad795ef1724aace62 /release-process
parent8e78571a8b7a823a439710720a407820ab662451 (diff)
release process: Use --use-compress-program for tar.
Gzip declares the use of environment variables as deprecated.
Diffstat (limited to 'release-process')
-rwxr-xr-xrelease-process/scripts/mk_exim_release29
1 files changed, 17 insertions, 12 deletions
diff --git a/release-process/scripts/mk_exim_release b/release-process/scripts/mk_exim_release
index 5ed476365..7fe8bbaeb 100755
--- a/release-process/scripts/mk_exim_release
+++ b/release-process/scripts/mk_exim_release
@@ -12,6 +12,7 @@ use Getopt::Long;
use IO::File;
use Pod::Usage;
use Digest::SHA;
+use feature 'state';
use if $ENV{DEBUG} => 'Smart::Comments';
my $ME = basename $0;
@@ -535,6 +536,17 @@ __
}
+# Check, if tar understands --use-compress-program and use this, as
+# at least gzip deprecated passing options via the environment.
+sub compressor {
+ my ($compressor, $fallback) = @_;
+ state $use_compress_option =
+ 0 == system("tar c -f /dev/null -C / --use-compress-program=cat dev/null 2>/dev/null");
+ return $use_compress_option
+ ? "--use-compress-program=$compressor"
+ : ref $fallback eq ref sub {} ? $fallback->() : $fallback;
+}
+
MAIN: {
# some of these settings are useful only if we're in the
@@ -550,10 +562,10 @@ MAIN: {
make_cmd => 'make', # for 'make'ing the docs
sizes => 1,
compressors => {
- gzip => { use => 1, extension => 'gz', flags => '--gzip' },
- bzip2 => { use => 1, extension => 'bz2', flags => '--bzip2' },
- xz => { use => 1, extension => 'xz', flags => '--xz' },
- lzip => { use => 0, extension => 'lz', flags => '--lzip' },
+ gzip => { use => 1, extension => 'gz', flags => compressor('gzip -9', sub { $ENV{GZIP} = '-9'; '--gzip' }) },
+ bzip2 => { use => 1, extension => 'bz2', flags => compressor('bzip -9', sub { $ENV{BZIP2} = '-9'; '--bzip2' }) },
+ xz => { use => 1, extension => 'xz', flags => compressor('xz -9', sub { $ENV{XZ_OPT} = '-9'; '--xz' }) },
+ lzip => { use => 0, extension => 'lz', flags => compressor('lzip -9', '--lzip') },
},
docs => 1,
web => 1,
@@ -567,13 +579,6 @@ MAIN: {
);
##$ENV{'PATH'} = '/opt/local/bin:' . $ENV{'PATH'};
- # We are creating files for mass distribution, so work harder to make smaller files.
- $ENV{GZIP} = -9;
- $ENV{BZIP2} = -9;
- # xz documents minimum file sizes for levels higher than -6 to be useful and each
- # requires more RAM on the decompressing system. Exim tarball currently 24MiB so
- # using -8.
- $ENV{XZ_DEFAULTS} = -8;
GetOptions(
$context,
@@ -762,7 +767,7 @@ Write the sizes information to F<sizes.txt>. (default: write sizes)
=item B<--tar-cmd> I<cmd>
Use to override the path to the C<tar> command. Need GNU tar in case
-I<lzip> is selected. (default: C<gtar>, if not found, use C<tar>)
+I<lzip> is selected. (default: C<gtar>, if not found, use C<tar>).
=item B<--tmpdir> I<dir>