drop support for LZMA

2 files changed, 4 insertions, 4 deletions

diff --git a/NEWS b/NEWS
index 754ad95..3f89fdb 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+    * compress_files: drop support for LZMA
+
 2015-07-25 Shlomi Fish <shlomif@cpan.org> 0.31.10
     * compress_files: More proper handling of $_. Convert as much as possible
       to lexical variables.
diff --git a/compress_files b/compress_files
index 4695f64..ca26bbd 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|xz)$/;
+die "Unknown extension $ext" unless $ext =~ /^\.(?:gz|bz2|xz)$/;
 
 my $buildroot = $ENV{RPM_BUILD_ROOT};
 die "No build root defined" unless $buildroot;
@@ -93,7 +93,7 @@ sub function {
     # skip excluded files
     return if $exclude_pattern && $File::Find::name =~ $exclude_pattern;
     # skip compressed files
-    return if $fn =~ /\.(?:gz|bz2|lzma|xz)$/;
+    return if $fn =~ /\.(?:gz|bz2|xz)$/;
     # skip particular files
     return if $fn eq 'dir' || $fn eq 'whatis';
 
@@ -107,7 +107,6 @@ 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', 'lzma') if $ext ne '.lzma';
 uncompress_files('.xz', 'xz') if $ext ne '.xz';
 
 # drop executable bits
@@ -120,7 +119,6 @@ if (@files) {
 
     my @command = $ext eq '.gz'   ? qw(gzip -9f)
                 : $ext eq '.bz2'  ? qw(bzip2 -9f)
-                : $ext eq '.lzma' ? qw(lzma -9f --text)
                 : $ext eq '.xz'   ? qw(xz -2ef)
                 :                   qw()
                 ;