From: Jari Matilainen <redacted>
Date: Sat, 7 Jan 2017 11:40:40 +0000 (+0000)
Subject: Added unlink to remove the uncompressed log
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=eae98b67185fcd845f47bdb5e5776c72b7e28992;p=irssi-scripts.irssi.org.git

Added unlink to remove the uncompressed log
---

diff --git a/scripts/logcompress_perl.pl b/scripts/logcompress_perl.pl
index 062331e..37395b5 100644
--- a/scripts/logcompress_perl.pl
+++ b/scripts/logcompress_perl.pl
@@ -18,6 +18,7 @@ $VERSION = "0.01";
 sub sig_rotate {
     my $input = $_[0]->{real_fname};
     gzip $input => "$input.gz" or Irssi::print(MSGLEVEL_CLIENTERROR, "gzip failed: $GzipError\n");
+    unlink $input if -e "$input.gz";
 }
 
 Irssi::signal_add('log rotated', 'sig_rotate');