Sys::Syslog doesn't need ppport.h in core

From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <203426.48736.qm@web30214.mail.mud.yahoo.com>

p4raw-id: //depot/perl@30657

diff --git a/ext/Sys/Syslog/Makefile.PL b/ext/Sys/Syslog/Makefile.PL
index 3cb0c64..c78408d 100644 (file)
--- a/ext/Sys/Syslog/Makefile.PL
+++ b/ext/Sys/Syslog/Makefile.PL
@@ -18,6 +18,11 @@ WriteMakefile(
     dist            => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean           => { FILES => 'Sys-Syslog-*' }, 
     realclean       => { FILES => 'const-c.inc const-xs.inc macros.all' },
+    (
+        (grep { $_ eq 'PERL_CORE=1' } @ARGV)
+            ? ()
+            : ('DEFINE' => '-DUSE_PPPORT_H')
+    ),
 );
 
 my $_PATH_LOG;

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 2a2ddb8..6dc3c85 100644 (file)
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -9,7 +9,7 @@ require 5.006;
 require Exporter;
 
 {   no strict 'vars';
-    $VERSION = '0.18';
+    $VERSION = '0.18_01';
     @ISA = qw(Exporter);
 
     %EXPORT_TAGS = (

diff --git a/ext/Sys/Syslog/Syslog.xs b/ext/Sys/Syslog/Syslog.xs
index 0408935..61712d4 100644 (file)
--- a/ext/Sys/Syslog/Syslog.xs
+++ b/ext/Sys/Syslog/Syslog.xs
@@ -1,7 +1,9 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-#include "ppport.h"
+#ifdef USE_PPPORT_H
+#  include "ppport.h"
+#endif
 
 #ifdef I_SYSLOG
 #include <syslog.h>

diff --git a/mkppport.lst b/mkppport.lst
index 7840f3c..8c090d4 100644 (file)
--- a/mkppport.lst
+++ b/mkppport.lst
@@ -6,6 +6,5 @@
 #
 
 ext/Cwd
-ext/Sys/Syslog
 ext/Time/HiRes
 ext/Win32API/File