aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xcompress_files9
1 files changed, 6 insertions, 3 deletions
diff --git a/compress_files b/compress_files
index 90d092b..0130a75 100755
--- a/compress_files
+++ b/compress_files
@@ -10,7 +10,7 @@ use File::Basename;
use Fcntl ':mode';
my $ext = $ARGV[0] ||= '.gz';
-die "Unknown extension $ext" unless $ext =~ /^\.(?:gz|bz2|lzma)$/;
+die "Unknown extension $ext" unless $ext =~ /^\.(?:gz|bz2|lzma|xz)$/;
my $buildroot = $ENV{RPM_BUILD_ROOT};
die "No build root defined" unless $buildroot;
@@ -88,7 +88,7 @@ my $function = sub {
# skip excluded files
return if $File::Find::name =~ $exclude_pattern;
# skip compressed files
- return if $_ =~ /\.(?:gz|bz2|lzma)$/;
+ return if $_ =~ /\.(?:gz|bz2|lzma|xz)$/;
# skip particular files
return if $_ eq 'dir' || $_ eq 'whatis';
@@ -101,7 +101,8 @@ foreach my $dir (@mandirs) {
# uncompress info/man pages using another format
uncompress_files('.gz', 'gzip') if $ext ne '.gz';
uncompress_files('.bz2', 'bzip2') if $ext ne '.bz2';
-uncompress_files('.lzma', 'lzmash') if $ext ne '.lzma';
+uncompress_files('.lzma', 'lzma') if $ext ne '.lzma';
+uncompress_files('.xz', 'xz') if $ext ne '.xz';
# Look for files with hard links. If we are going to compress both,
# we can preserve the hard link across the compression and save
@@ -134,6 +135,8 @@ if (@f) {
: $ext eq '.bz2' ? qw/bzip2 -9f/
: $ext eq '.lzma' ? qw/lzma -9f --text/
: qw//
+ : $ext eq '.xz' ? qw/xz -9f --text/
+ : qw//
;
xargs(\@f, @command);
}