Fix wrong order of arguments to print

diff --git a/scripts/logcompress_perl.pl b/scripts/logcompress_perl.pl
index d75755a1ced54800d527fe3d8bdff0c599b3fb83..5cfa14b4ba1bc79a8e6e2677408a967aab68d9af 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.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";
 }