blob: ad0c668ee99bffa4197891df133796daa623f940 (
plain)
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;
|