Upgrade to Sys-Syslog 0.30
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 15 Aug 2012 07:25:20 +0000 (08:25 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 15 Aug 2012 07:39:52 +0000 (08:39 +0100)
This now incorporates blead's customization of t/syslog.t. Also,
win32/PerlLog_RES.uu shouldn't be listed as EXCLUDED since it is
actually included!

Porting/Maintainers.pl
cpan/Sys-Syslog/Changes
cpan/Sys-Syslog/README
cpan/Sys-Syslog/Syslog.pm
cpan/Sys-Syslog/Syslog.xs
pod/perldelta.pod

index 2a1e37e..dd88ca7 100755 (executable)
@@ -1660,7 +1660,7 @@ use File::Glob qw(:case);
 
     'Sys::Syslog' => {
         'MAINTAINER'   => 'saper',
-        'DISTRIBUTION' => 'SAPER/Sys-Syslog-0.29.tar.gz',
+        'DISTRIBUTION' => 'SAPER/Sys-Syslog-0.30.tar.gz',
         'FILES'        => q[cpan/Sys-Syslog],
         'EXCLUDED'     => [
             qr{^eg/},
@@ -1671,11 +1671,9 @@ use File::Glob qw(:case);
                 t/podspell.t
                 t/portfs.t
                 win32/PerlLog.RES
-                win32/PerlLog_RES.uu
                 ),
         ],
         'UPSTREAM'   => 'cpan',
-        'CUSTOMIZED' => ['t/syslog.t'],
     },
 
     'Term::ANSIColor' => {
index 81f8bb1..d1b0bd0 100644 (file)
@@ -1,5 +1,14 @@
 Revision history for Sys-Syslog
 
+0.30 -- 2012.08.15 -- Sebastien Aperghis-Tramoni (SAPER)
+        [BUGFIX] CPAN-RT#69310: Avoid a POSIX::strftime issue on Windows
+        (Michael Ludwig).
+        [BUGFIX] CPAN-RT#77577: Build on Haiku-OS (Tony Cook).
+        [BUGFIX] CPAN-RT#77578: Silence a compilation warning (Tony Cook).
+        [BUGFIX] CPAN-RT#78044: Don't call getservbyname() when the port is
+        specified (Chan Wilson).
+        [TESTS] t/syslog.t no longer needs to chdir under PERL_CORE.
+
 0.29 -- 2011.04.18 -- Sebastien Aperghis-Tramoni (SAPER) #PerlQA2011
         [BUGFIX] CPAN-RT#55215: Sys::Syslog might call exit which triggers
         DESTROY (Alexander Berger).
index d68a12a..203535b 100644 (file)
@@ -21,16 +21,9 @@ INSTALLATION
 
     An ANSI-compliant compiler is required to compile the extension.
 
-    Sys::Syslog should work on any Perl since 5.6.0. This module has 
-    been tested by the author on the following Perl and system versions
-    but is likely to run on many more:
-
-        Perl    Architecture                            GCC
-        -----------------------------------------------------
-        5.6.2   i686-linux                              3.4.1
-        5.8.5   i386-linux-thread-multi                 3.4.1
-        5.8.8   i386-freebsd-64int                      3.4.4
-        5.8.6   darwin-thread-multi-2level (PowerPC)    4.0.1
+    Sys::Syslog should work on any Perl since 5.6.0. This module is 
+    regularly compiled and tested by the CPAN Testers on various
+    combinations of Perl and operating systems.
 
     See also the corresponding CPAN Testers page:
         http://testers.cpan.org/show/Sys-Syslog.html
@@ -48,8 +41,8 @@ SUPPORT AND DOCUMENTATION
         Search CPAN
             http://search.cpan.org/dist/Sys-Syslog/
 
-        Kobes' CPAN Search
-            http://cpan.uwinnipeg.ca/dist/Sys-Syslog
+        MetaCPAN
+            https://metacpan.org/module/Sys::Syslog
 
         CPAN Request Tracker:
             http://rt.cpan.org/NoAuth/Bugs.html?Dist=Sys-Syslog
@@ -63,7 +56,7 @@ SUPPORT AND DOCUMENTATION
 
 COPYRIGHT AND LICENCE
 
-    Copyright (C) 1990-2009 by Larry Wall and others.
+    Copyright (C) 1990-2012 by Larry Wall and others.
 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.
index a68f817..48ea904 100644 (file)
@@ -12,7 +12,7 @@ require 5.005;
 
 
 {   no strict 'vars';
-    $VERSION = '0.29';
+    $VERSION = '0.30';
     @ISA     = qw< Exporter >;
 
     %EXPORT_TAGS = (
@@ -227,6 +227,8 @@ my %mechanism = (
     },
     tcp => {
         check   => sub {
+            return 1 if defined $sock_port;
+
             if (getservbyname('syslog', 'tcp') || getservbyname('syslogng', 'tcp')) {
                 $host = $syslog_path;
                 return 1
@@ -239,6 +241,8 @@ my %mechanism = (
     },
     udp => {
         check   => sub {
+            return 1 if defined $sock_port;
+
             if (getservbyname('syslog', 'udp')) {
                 $host = $syslog_path;
                 return 1
@@ -412,7 +416,7 @@ sub syslog {
         $sum = $numpri + $numfac;
         my $oldlocale = setlocale(LC_TIME);
         setlocale(LC_TIME, 'C');
-        my $timestamp = strftime "%b %e %H:%M:%S", localtime;
+        my $timestamp = strftime "%b %d %H:%M:%S", localtime;
         setlocale(LC_TIME, $oldlocale);
 
         # construct the stream that will be transmitted
@@ -875,7 +879,7 @@ Sys::Syslog - Perl interface to the UNIX syslog(3) calls
 
 =head1 VERSION
 
-This is the documentation of version 0.29
+This is the documentation of version 0.30
 
 =head1 SYNOPSIS
 
@@ -1521,15 +1525,16 @@ Perl and C<Sys::Syslog> versions.
 
     Sys::Syslog     Perl
     -----------     ----
-       undef        5.0.x -- 5.5.x
-       0.01         5.6.0, 5.6.1, 5.6.2
+       undef        5.0.0 ~ 5.5.4
+       0.01         5.6.*
        0.03         5.8.0
        0.04         5.8.1, 5.8.2, 5.8.3
        0.05         5.8.4, 5.8.5, 5.8.6
        0.06         5.8.7
        0.13         5.8.8
        0.22         5.10.0
-       0.27         5.8.9
+       0.27         5.8.9, 5.10.1 ~ 5.14.2
+       0.29         5.16.0, 5.16.1
 
 
 =head1 SEE ALSO
@@ -1648,9 +1653,9 @@ L<http://rt.cpan.org/Dist/Display.html?Queue=Sys-Syslog>
 
 L<http://search.cpan.org/dist/Sys-Syslog/>
 
-=item * Kobes' CPAN Search
+=item * MetaCPAN
 
-L<http://cpan.uwinnipeg.ca/dist/Sys-Syslog>
+L<https://metacpan.org/module/Sys::Syslog>
 
 =item * Perl Documentation
 
@@ -1661,7 +1666,7 @@ L<http://perldoc.perl.org/Sys/Syslog.html>
 
 =head1 COPYRIGHT
 
-Copyright (C) 1990-2009 by Larry Wall and others.
+Copyright (C) 1990-2012 by Larry Wall and others.
 
 
 =head1 LICENSE
index e1ba675..d715b45 100644 (file)
 
 static SV *ident_svptr;
 
-#include "const-c.inc"
-
 
 #ifndef LOG_FAC
 #define LOG_FACMASK     0x03f8
 #define LOG_FAC(p)      (((p) & LOG_FACMASK) >> 3)
 #endif
 
+#ifndef LOG_PRIMASK
+#define LOG_PRIMASK     0x07
+#endif
+
 #ifndef        LOG_PRI
 #define        LOG_PRI(p)      ((p) & LOG_PRIMASK)
 #endif
@@ -55,6 +57,8 @@ static SV *ident_svptr;
 #define        LOG_UPTO(pri)   ((1 << ((pri)+1)) - 1)
 #endif
 
+#include "const-c.inc"
+
 
 MODULE = Sys::Syslog           PACKAGE = Sys::Syslog           
 
index 3a794a5..288edbc 100644 (file)
@@ -215,6 +215,12 @@ the storage format, so the format version has increased to 2.9.
 
 =item *
 
+L<Sys::Syslog> has been upgraded from version 0.29 to 0.30.  An issue with
+C<POSIX::strftime()> on Windows and a build problem on Haiku-OS have been
+resolved, and <getservbyname()> is no longer called when the port is specified.
+
+=item *
+
 L<Time::Local> has been upgraded from version 1.2000 to 1.2300.  Seconds values
 greater than 59 but less than 60 no longer cause C<timegm()> and C<timelocal()>
 to croak.