From: Sébastien Aperghis-Tramoni <sebastien@aperghis.net>
Date: Sun, 21 Sep 2008 19:07:47 +0000 (+0200)
Subject: Fwd: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.27.tar.gz
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df6b13cea92ba006ae9a8acfb459e14fdde40f73;p=p5sagit%2Fp5-mst-13.2.git

Fwd: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.27.tar.gz
Message-Id: <E10A395B-92A8-4803-8E75-383F7CE8A624@free.fr>

p4raw-id: //depot/perl@34387
---

diff --git a/ext/Sys/Syslog/Changes b/ext/Sys/Syslog/Changes
index e8bc66e..2f6653b 100644
--- a/ext/Sys/Syslog/Changes
+++ b/ext/Sys/Syslog/Changes
@@ -1,5 +1,10 @@
 Revision history for Sys-Syslog
 
+0.27 -- 2008.09.21 -- Sebastien Aperghis-Tramoni (SAPER)
+        [BUGFIX] Fixed compilation on Win32, thanks to Serguei Trouchelle.
+        Also added stubs so calling the XS functions will never fail.
+        [TESTS] t/pod.t now also uses Pod::Checker.
+
 0.26 -- 2008.06.16 -- Sebastien Aperghis-Tramoni (SAPER)
         [BUGFIX] Make Sys::Syslog works with Perl 5.10.0 (because of 
         ExtUtils::Constant::ProxySubs).
diff --git a/ext/Sys/Syslog/Makefile.PL b/ext/Sys/Syslog/Makefile.PL
index 880282d..790853c 100644
--- a/ext/Sys/Syslog/Makefile.PL
+++ b/ext/Sys/Syslog/Makefile.PL
@@ -74,7 +74,7 @@ else {
 }
 
 # on pre-5.6 Perls, add warnings::compat to the prereq modules
-push @extra_prereqs, "warnings::compat"  if $] < 5.006;
+push @extra_prereqs, "warnings::compat" => "0.06"  if $] < 5.006;
 
 WriteMakefile(
     NAME            => 'Sys::Syslog',
@@ -104,7 +104,6 @@ WriteMakefile(
     clean           => { FILES => 'Sys-Syslog-*' }, 
     realclean       => { FILES => 'lib const-c.inc const-xs.inc macros.all '
         .'PerlLog.h typemap *.bak *.bin *.rc win32/PerlLog_dll' },
-    NO_META         => 1,
     @extra_params
 );
 
diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 771ae69..002e6e4 100644
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -11,7 +11,7 @@ use Socket ':all';
 require 5.005;
 
 {   no strict 'vars';
-    $VERSION = '0.26';
+    $VERSION = '0.27';
     @ISA = qw(Exporter);
 
     %EXPORT_TAGS = (
@@ -829,7 +829,7 @@ Sys::Syslog - Perl interface to the UNIX syslog(3) calls
 
 =head1 VERSION
 
-Version 0.26
+Version 0.27
 
 =head1 SYNOPSIS
 
diff --git a/ext/Sys/Syslog/Syslog.xs b/ext/Sys/Syslog/Syslog.xs
index 1786d0a..704ed9e 100644
--- a/ext/Sys/Syslog/Syslog.xs
+++ b/ext/Sys/Syslog/Syslog.xs
@@ -1,3 +1,7 @@
+#if defined(_WIN32)
+#  include <windows.h>
+#endif
+
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -137,4 +141,31 @@ closelog_xs()
         if (SvREFCNT(ident_svptr))
             SvREFCNT_dec(ident_svptr);
 
+#else  /* HAVE_SYSLOG */
+
+void
+openlog_xs(ident, option, facility)
+    INPUT:
+        SV*   ident
+        int   option
+        int   facility
+    CODE:
+
+void
+syslog_xs(priority, message)
+    INPUT:
+        int   priority
+        const char * message
+    CODE:
+
+int
+setlogmask_xs(mask)
+    INPUT:
+        int mask
+    CODE:
+
+void
+closelog_xs()
+    CODE:
+
 #endif /* HAVE_SYSLOG */