Created attachment 345299 [details]
Be able to handle EMERG/LOG_EMERG correctly

Version-Release number of selected component (if applicable):

perl-5.8.8-15.el5_2.1
  
Actual results:

[root@trunk:~] perl -MSys::Syslog -e 'syslog LOG_EMERG => "boo"'
syslog: invalid level/facility: LOG_EMERG at -e line 1

Expected results:

09/05/25 12:25:09 role=?, status=?
[root@trunk:~] perl -MSys::Syslog -e 'syslog LOG_EMERG => "boo"'

Message from syslogd@trunk at May 25 12:25:16 ...
 root: boo

Additional info:

Patch is attached. Fixed upstream. Upstream's new version of the module has the method almost completely rewritten, a similar conditional (permitting log level with numerical value 0) can be spotted there though.