Skip Menu |
 

This queue is for tickets about the Sys-Syslog CPAN distribution.

Report information
The Basics
Id: 17518
Status: resolved
Priority: 0/
Queue: Sys-Syslog

People
Owner: SAPER [...] cpan.org
Requestors: hirose31 [...] t3.rim.or.jp
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.13
Fixed in: 0.14



Subject: cannot use LOG_EMERG
Download (untitled) / with headers
text/plain 260b
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.
Subject: Re: [rt.cpan.org #17518] cannot use LOG_EMERG
Date: Wed, 8 Feb 2006 01:02:16 +0100
To: bug-Sys-Syslog [...] rt.cpan.org
From: Sébastien Aperghis-Tramoni <saper [...] cpan.org>
Download (untitled) / with headers
text/plain 782b
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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.