app-admin/mon/files/mon-1.2.0-syslog.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

--- mon-1.2.0.orig/mon	2007-10-08 19:04:50.000000000 +0200
+++ mon-1.2.0/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;