This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missing chunk in change #26247.
[perl5.git] / ext / Sys / Syslog / Makefile.PL
1 use ExtUtils::MakeMaker;
2 use ExtUtils::Constant 0.11 'WriteConstants';
3
4 WriteMakefile(
5     NAME                => 'Sys::Syslog',
6     VERSION_FROM        => 'Syslog.pm', 
7     MAN3PODS            => {},  # Pods will be built by installman.
8     XSPROTOARG          => '-noprototypes',
9     realclean => {FILES=> 'const-c.inc const-xs.inc'},
10 );
11
12 my $_PATH_LOG;
13
14 if (-S "/dev/log" && -w "/dev/log") {
15         # Most unixes have a unix domain socket /dev/log.
16        $_PATH_LOG = "/dev/log";
17 } elsif (-c "/dev/conslog" && -w "/dev/conslog") {
18         # SunOS 5.8 has a worldwritable /dev/conslog STREAMS log driver.
19         # The /dev/log STREAMS log driver on this platform has permissions
20         # and ownership `crw-r----- root sys'.  /dev/conslog has more liberal
21         # permissions.
22        $_PATH_LOG = "/dev/conslog";
23 } else {
24        $_PATH_LOG = "";
25 }
26
27 WriteConstants(
28     NAME => 'Sys::Syslog',
29     NAMES => [qw(LOG_ALERT LOG_AUTH LOG_AUTHPRIV LOG_CONS LOG_CRIT LOG_CRON
30                  LOG_DAEMON LOG_DEBUG LOG_EMERG LOG_ERR LOG_FACMASK LOG_FTP
31                  LOG_INFO LOG_KERN LOG_LFMT LOG_LOCAL0 LOG_LOCAL1 LOG_LOCAL2
32                  LOG_LOCAL3 LOG_LOCAL4 LOG_LOCAL5 LOG_LOCAL6 LOG_LOCAL7 LOG_LPR
33                  LOG_MAIL LOG_NDELAY LOG_NEWS LOG_NFACILITIES LOG_NOTICE
34                  LOG_NOWAIT LOG_ODELAY LOG_PERROR LOG_PID LOG_PRIMASK LOG_SYSLOG
35                  LOG_USER LOG_UUCP LOG_WARNING),
36               {name=>"_PATH_LOG", type=>"PV", default=>["PV",qq("$_PATH_LOG")]},
37              ],
38 );