develooper Front page | perl.perl5.porters | Postings from October 2007

(perl-current of 5.9.5) patch for ext/Sys/Syslog/Makefile.PL for EBCDICplatform

Thread Next
From:
Chun Bing Ge
Date:
October 24, 2007 22:52
Subject:
(perl-current of 5.9.5) patch for ext/Sys/Syslog/Makefile.PL for EBCDICplatform
Message ID:
OF6F9D28B6.7274B832-ON4825737F.001FD914-4825737F.00203867@IBMCN
Hi,

Here is the patch below. Any question, pls let me know, thanks.


--- /home/spring/perl/perl-current/ext/Sys/Syslog/Makefile.PL   2007-03-21 
18:48:23.000000000 +0800
+++ /home/spring/patch/chgfile/ext-Sys-Syslog-Makefile.PL       2007-09-26 
11:03:32.000000000 +0800
@@ -27,7 +27,7 @@
 
 my $_PATH_LOG;
 
-if (-S "/dev/log" and -w "/dev/log") {
+if ((-S "/dev/log" || -c "/dev/log") && -w "/dev/log") {
     # Most unixes have a unix domain socket /dev/log.
     $_PATH_LOG = "/dev/log";
 } elsif (-c "/dev/conslog" and -w "/dev/conslog") {
@@ -64,9 +64,10 @@
 
             # others macros
             qw(
-                LOG_FACMASK LOG_NFACILITIES LOG_PRIMASK 
+                LOG_FACMASK LOG_NFACILITIES
             ), 
 
+           { name => "LOG_PRIMASK", type => "IV", default => [ "IV", 7] 
},
            { name => "_PATH_LOG", type => "PV", default => [ "PV", 
qq("$_PATH_LOG") ] },
     );
 


Ge, Chun Bing
空山新雨后,天气晚来秋

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About