From: vague666 <redacted>
Date: Sat, 10 Apr 2021 09:09:04 +0000 (+0200)
Subject: Fix wrong order of arguments to print
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=b003a544ef9a8ccab168684d422eca4672357af8;p=irssi-scripts.irssi.org.git

Fix wrong order of arguments to print
---

diff --git a/scripts/logcompress_perl.pl b/scripts/logcompress_perl.pl
index d75755a..5cfa14b 100644
--- 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.02";
+$VERSION = "0.03";
 %IRSSI = (
     authors	=> 'vague',
     contact	=> 'vague!#irssi@fgreenode',
@@ -17,7 +17,7 @@ $VERSION = "0.02";
 
 sub sig_rotate {
     my $input = $_[0]->{real_fname};
-    gzip $input => "$input.gz" or Irssi::print(MSGLEVEL_CLIENTERROR, "gzip failed: $GzipError\n");
+    gzip $input => "$input.gz" or Irssi::print("gzip failed: $GzipError", MSGLEVEL_CLIENTERROR);
     unlink $input if -e "$input.gz";
 }