--- mon.orig	2007-10-08 19:04:50.000000000 +0200
+++ mon	2007-10-09 16:04:16.000000000 +0200
@@ -5410,11 +5410,10 @@
 
 no warnings; # Redefining syslog
 sub syslog {
-   eval {
-       local $SIG{"__DIE__"}= sub { }; 
-       my @log = map { s/\%//mg; } @_;
-       Sys::Syslog::syslog(@log);
-   }
+       local $SIG{"__DIE__"} = sub { }; 
+       my ($level, $msg) = @_;
+       $msg =~ s/\%//mg;
+       Sys::Syslog::syslog($level, $msg);
 }
 use warnings;