Show quoted text> cannot use LOG_EMERG or "emerg" as priority with following error.
>
> syslog: invalid level/facility: emerg at ./syslog.pl line 46
>
> Syslog.pm#syslog (line 632) is
> if ($_ eq 'kern' || $num <= 0) {
> but I think
> if ($_ eq 'kern' || $num < 0) {
> is correct.
In fact, I changed that test because it prevented to use the kernel
facility when passed as a string "kern", but not when passed as a
numeric value (LOG_KERN). I'm pondering to change this line to only
check that $num is a positive value and allow "kern" as well as
LOG_KERN.
After all, Perl always had the tradition to give the user enough rope...
Thanks for your report
Sébastien Aperghis-Tramoni
-- - --- -- - -- - --- -- - --- -- - --[
http://maddingue.org ]
Close the world, txEn eht nepO
