diff options
| author | Jari Matilainen | 2017-01-07 11:40:40 +0000 |
|---|---|---|
| committer | Jari Matilainen | 2017-01-07 11:40:40 +0000 |
| commit | eae98b67185fcd845f47bdb5e5776c72b7e28992 (patch) | |
| tree | 61e8d44bbaab71d659c2c6b93f41cd12f957e98f | |
| parent | 4a999028d8007a74dd57c2ea1a229552ba60f349 (diff) | |
| download | scripts.irssi.org-eae98b67185fcd845f47bdb5e5776c72b7e28992.tar.bz2 | |
Added unlink to remove the uncompressed log
| -rw-r--r-- | scripts/logcompress_perl.pl | 1 |
1 files changed, 1 insertions, 0 deletions
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'); |