Only delete original file if there was an error

diff --git a/scripts/logcompress_perl.pl b/scripts/logcompress_perl.pl
index 414715c9366d518518ea34ad7e1b546f833acf7d..515d712aaa9e0e7c6211ff1732765e1cb5767ffb 100644 (file)
--- a/scripts/logcompress_perl.pl
+++ b/scripts/logcompress_perl.pl
@@ -4,7 +4,7 @@ use Irssi;
 use IO::Compress::Gzip qw(gzip $GzipError);
 use vars qw($VERSION %IRSSI);
 
-$VERSION = "0.03";
+$VERSION = "0.04";
 %IRSSI = (
     authors    => 'vague',
     contact    => 'vague!#irssi@fgreenode',