Change 34387 by [EMAIL PROTECTED] on 2008/09/21 17:16:13
Subject: Fwd: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.27.tar.gz
From: Sébastien Aperghis-Tramoni <[EMAIL PROTECTED]>
Date: Sun, 21 Sep 2008 19:07:47 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Sys/Syslog/Changes#18 edit
... //depot/perl/ext/Sys/Syslog/Makefile.PL#25 edit
... //depot/perl/ext/Sys/Syslog/Syslog.pm#59 edit
... //depot/perl/ext/Sys/Syslog/Syslog.xs#19 edit
Differences ...
==== //depot/perl/ext/Sys/Syslog/Changes#18 (text) ====
Index: perl/ext/Sys/Syslog/Changes
--- perl/ext/Sys/Syslog/Changes#17~34058~ 2008-06-15 20:16:40.000000000
-0700
+++ perl/ext/Sys/Syslog/Changes 2008-09-21 10:16:13.000000000 -0700
@@ -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).
==== //depot/perl/ext/Sys/Syslog/Makefile.PL#25 (text) ====
Index: perl/ext/Sys/Syslog/Makefile.PL
--- perl/ext/Sys/Syslog/Makefile.PL#24~34058~ 2008-06-15 20:16:40.000000000
-0700
+++ perl/ext/Sys/Syslog/Makefile.PL 2008-09-21 10:16:13.000000000 -0700
@@ -74,7 +74,7 @@
}
# 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 @@
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
);
==== //depot/perl/ext/Sys/Syslog/Syslog.pm#59 (text) ====
Index: perl/ext/Sys/Syslog/Syslog.pm
--- perl/ext/Sys/Syslog/Syslog.pm#58~34058~ 2008-06-15 20:16:40.000000000
-0700
+++ perl/ext/Sys/Syslog/Syslog.pm 2008-09-21 10:16:13.000000000 -0700
@@ -11,7 +11,7 @@
require 5.005;
{ no strict 'vars';
- $VERSION = '0.26';
+ $VERSION = '0.27';
@ISA = qw(Exporter);
%EXPORT_TAGS = (
@@ -829,7 +829,7 @@
=head1 VERSION
-Version 0.26
+Version 0.27
=head1 SYNOPSIS
==== //depot/perl/ext/Sys/Syslog/Syslog.xs#19 (text) ====
Index: perl/ext/Sys/Syslog/Syslog.xs
--- perl/ext/Sys/Syslog/Syslog.xs#18~34005~ 2008-06-05 18:27:49.000000000
-0700
+++ perl/ext/Sys/Syslog/Syslog.xs 2008-09-21 10:16:13.000000000 -0700
@@ -1,3 +1,7 @@
+#if defined(_WIN32)
+# include <windows.h>
+#endif
+
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
@@ -137,4 +141,31 @@
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 */
End of Patch.
