From: vague666 <redacted>
Date: Sat, 10 Apr 2021 09:43:51 +0000 (+0200)
Subject: Only delete original file if there was an error
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=2ce09b8ffb76859c6c236f847409ca82cb032db6;p=irssi-scripts.irssi.org.git

Only delete original file if there was an error
---

diff --git a/scripts/logcompress_perl.pl b/scripts/logcompress_perl.pl
index ff423b2..414715c 100644
--- a/scripts/logcompress_perl.pl
+++ b/scripts/logcompress_perl.pl
@@ -18,7 +18,7 @@ $VERSION = "0.03";
 sub sig_rotate {
     my $input = $_[0]->{real_fname};
     gzip $input => "$input.gz" or Irssi::print("gzip failed: $GzipError", MSGLEVEL_CLIENTERROR);
-    unlink $input if -e "$input.gz";
+    unlink $input if not defined $GzipError && -e "$input.gz";
 }
 
 Irssi::signal_add('log rotated', 'sig_rotate');