From eae98b67185fcd845f47bdb5e5776c72b7e28992 Mon Sep 17 00:00:00 2001
From: Jari Matilainen
Date: Sat, 7 Jan 2017 11:40:40 +0000
Subject: Added unlink to remove the uncompressed log

---
 scripts/logcompress_perl.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'scripts/logcompress_perl.pl')

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');
-- 
cgit v1.2.3