X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FSys%2FSyslog%2FSyslog.pm;h=9c05dcd1f51fff5fdee1c116625c32590a714146;hb=bbc7dcd2bd43efd6773e46b614c6eb1db5af78d2;hp=92b82a1acdce24a6758d16bb59e66ea85d86de8d;hpb=7c40f2ffc905b2d7d020da9a2debf52b63f9f0d9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 92b82a1..9c05dcd 100644
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -46,7 +46,7 @@ just like C<syslog(3)>.
 
 Syslog provides the functions:
 
-=over
+=over 4
 
 =item openlog $ident, $logopt, $facility
 
@@ -264,7 +264,9 @@ sub xlate {
     $name = uc $name;
     $name = "LOG_$name" unless $name =~ /^LOG_/;
     $name = "Sys::Syslog::$name";
-    eval { &$name } || -1;
+    # Can't have just eval { &$name } || -1 because some LOG_XXX may be zero.
+    my $value = eval { &$name };
+    defined $value ? $value : -1;
 }
 
 sub connect {