Front page | perl.perl5.porters |
Postings from October 2007
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