Re: [perl #20557] Bug in Sys::Syslog in perl 5.8.0

--- ext/Sys/Syslog/Syslog.pm.orig	2003-02-15 01:38:53.000000000 -0500
+++ ext/Sys/Syslog/Syslog.pm	2003-02-15 01:39:48.000000000 -0500
@@ -230,6 +230,7 @@
 }
 
 sub syslog {
+    local($errno) = shift;
     local($priority) = shift;
     local($mask) = shift;
     local($message, $whoami);
@@ -282,7 +283,7 @@
 
     $whoami .= "[$$]" if $lo_pid;
 
-    $mask =~ s/%m/$!/g;
+    $mask =~ s/%m/$errno/g;
     $mask .= "\n" unless $mask =~ /\n$/;
     $message = sprintf ($mask, @_);
 

• Re: [perl #20557] Bug in Sys::Syslog in perl 5.8.0 by Paul R. Schmidt