Bug#588622: "nofatal" in openlog causes messages to be printed to stdout

[Matyas Koszik]

Package: perl
Version: 5.10.0-19lenny2
Severity: normal


The following code should not print anything to stdout, but it will:

use Sys::Syslog;

openlog "x", "nofatal", "local0";
syslog "err", "test";


There's no symbol named LOG_NOFATAL, so xlate in /usr/lib/perl/5.10.0/Sys/Syslog.pm
will return -1 and effectively turn on all features, including console output.
I fixed this by adding 'sub LOG_NOFATAL{return 0;}' in Syslog.pm, now it works as expected.
This bug seems to be affecting only lenny, etch and squeeze are ok.