drop ugly hack of re-executing itself after decompressing files with other formats

1 files changed, 9 insertions, 3 deletions

diff --git a/compress_files b/compress_files
index b8b9d73..80c5550 100755
--- a/compress_files
+++ b/compress_files
@@ -118,21 +118,27 @@ if ($ext ne '.gz') {
     my @gz_files = split(/\n/, `find usr/info usr/share/info usr/man usr/share/man usr/X11*/man usr/lib/perl5/man -type f -name "*.gz" 2>/dev/null || true`);
     if (@gz_files) {
         xargs(\@gz_files, "gzip", "-d");
-        $? ? die "Something wrong with the decompression of the gzip man/info file, fix this ASAP" : exec($0)
+        die "Something wrong with the decompression of the gzip man/info file"
+            if $?;
+        push(@files, map { substr($_, 0, -3) } @gz_files);
     }
 }
 if ($ext ne '.bz2') {
     my @bz_files = split(/\n/, `find usr/info usr/share/info usr/man usr/share/man usr/X11*/man usr/lib/perl5/man -type f -name "*.bz2" 2>/dev/null || true`);
     if (@bz_files) {
         xargs(\@bz_files, "bzip2", "-d");
-        $? ? die "Something wrong with the decompression of the bzip2 man/info file, fix this ASAP" : exec($0)
+        die "Something wrong with the decompression of the bzip2 man/info file"
+            if $?;
+        push(@files, map { substr($_, 0, -4) } @bz_files);
     }
 }
 if ($ext ne '.lzma') {
     my @lzma_files = split(/\n/, `find usr/info usr/share/info usr/man usr/share/man usr/X11*/man usr/lib/perl5/man -type f -name "*.lzma" 2>/dev/null || true`);
     if (@lzma_files) { 
         xargs(\@lzma_files, "lzmash", "-d");
-        $? ? die "Something wrong with the decompression of the lzma man/info file, fix this ASAP" : exec($0)
+        die "Something wrong with the decompression of the lzma man/info file"
+            if $?;
+        push(@files, map { substr($_, 0, -5) } @lzma_files);
     }
 }