r25513 - in /branches/upstream/libsys-syslog-perl/current: Changes MANIFEST META.yml Makefile.PL Syslog.pm Syslog.xs t/pod.t t/podspell.t

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Mon Sep 22 09:38:22 UTC 2008


Author: ansgar-guest
Date: Mon Sep 22 09:38:19 2008
New Revision: 25513

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25513
Log:
[svn-upgrade] Integrating new upstream version, libsys-syslog-perl (0.27)

Modified:
    branches/upstream/libsys-syslog-perl/current/Changes
    branches/upstream/libsys-syslog-perl/current/MANIFEST
    branches/upstream/libsys-syslog-perl/current/META.yml
    branches/upstream/libsys-syslog-perl/current/Makefile.PL
    branches/upstream/libsys-syslog-perl/current/Syslog.pm
    branches/upstream/libsys-syslog-perl/current/Syslog.xs
    branches/upstream/libsys-syslog-perl/current/t/pod.t
    branches/upstream/libsys-syslog-perl/current/t/podspell.t

Modified: branches/upstream/libsys-syslog-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/Changes?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/Changes (original)
+++ branches/upstream/libsys-syslog-perl/current/Changes Mon Sep 22 09:38:19 2008
@@ -1,4 +1,9 @@
 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 

Modified: branches/upstream/libsys-syslog-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/MANIFEST?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/MANIFEST (original)
+++ branches/upstream/libsys-syslog-perl/current/MANIFEST Mon Sep 22 09:38:19 2008
@@ -1,7 +1,6 @@
+MANIFEST
 Makefile.PL
-META.yml
 Changes
-MANIFEST
 README
 README.win32
 Syslog.pm
@@ -26,3 +25,4 @@
 win32/PerlLog_RES.uu
 win32/PerlLog_dll.uu
 win32/Win32.pm
+META.yml                                 Module meta-data (added by MakeMaker)

Modified: branches/upstream/libsys-syslog-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/META.yml?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/META.yml (original)
+++ branches/upstream/libsys-syslog-perl/current/META.yml Mon Sep 22 09:38:19 2008
@@ -1,28 +1,21 @@
----
-name: Sys-Syslog
-version: 0.25
-author:
-  - 'Sebastien Aperghis-Tramoni <sebastien at aperghis.net>'
-abstract: Perl interface to the UNIX syslog(3) calls
-license: perl
-resources:
-  license: http://dev.perl.org/licenses/
-requires:
-  Carp: 0
-  Fcntl: 0
-  File::Basename: 0
-  File::Spec: 0
-  POSIX: 0
-  Socket: 0
-  XSLoader: 0
-  perl: 5.005
-build_requires:
-  Test::More: 0
-provides:
-  Sys::Syslog:
-    file: Syslog.pm
-    version: 0.25
-generated_by: Module::Build version 0.2808
+--- #YAML:1.0
+name:                Sys-Syslog
+version:             0.27
+abstract:            Perl interface to the UNIX syslog(3) calls
+license:             perl
+author:              
+    - Sebastien Aperghis-Tramoni <sebastien at aperghis.net>
+generated_by:        ExtUtils::MakeMaker version 6.44
+distribution_type:   module
+requires:     
+    Carp:                          0
+    Fcntl:                         0
+    File::Basename:                0
+    File::Spec:                    0
+    POSIX:                         0
+    Socket:                        0
+    Test::More:                    0
+    XSLoader:                      0
 meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libsys-syslog-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/Makefile.PL?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/Makefile.PL (original)
+++ branches/upstream/libsys-syslog-perl/current/Makefile.PL Mon Sep 22 09:38:19 2008
@@ -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
 );
 

Modified: branches/upstream/libsys-syslog-perl/current/Syslog.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/Syslog.pm?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/Syslog.pm (original)
+++ branches/upstream/libsys-syslog-perl/current/Syslog.pm Mon Sep 22 09:38:19 2008
@@ -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
 

Modified: branches/upstream/libsys-syslog-perl/current/Syslog.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/Syslog.xs?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/Syslog.xs (original)
+++ branches/upstream/libsys-syslog-perl/current/Syslog.xs Mon Sep 22 09:38:19 2008
@@ -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 */

Modified: branches/upstream/libsys-syslog-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/t/pod.t?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/t/pod.t (original)
+++ branches/upstream/libsys-syslog-perl/current/t/pod.t Mon Sep 22 09:38:19 2008
@@ -1,12 +1,16 @@
 #!perl -wT
 use strict;
 use Test::More;
-use Pod::Checker;
 
-plan skip_all => "Test::Pod 1.14 required for testing POD"
+
+plan skip_all => "Test::Pod v1.14 required for testing POD"
     unless eval "use Test::Pod 1.14; 1";
 
 all_pod_files_ok();
 
-my $checker = Pod::Checker->new(-warnings => 1);
-$checker->parse_from_file($_, \*STDERR) for all_pod_files();
+if ($ENV{AUTHOR_TESTS}) {
+    if (eval "use Pod::Checker; 1") {
+        my $checker = Pod::Checker->new(-warnings => 1);
+        $checker->parse_from_file($_, \*STDERR) for all_pod_files();
+    }
+}

Modified: branches/upstream/libsys-syslog-perl/current/t/podspell.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-syslog-perl/current/t/podspell.t?rev=25513&op=diff
==============================================================================
--- branches/upstream/libsys-syslog-perl/current/t/podspell.t (original)
+++ branches/upstream/libsys-syslog-perl/current/t/podspell.t Mon Sep 22 09:38:19 2008
@@ -2,11 +2,20 @@
 use strict;
 use Test::More;
 
-plan skip_all => "Pod spelling: for developer interest only :)" unless -d 'releases';
-plan skip_all => "Test::Spelling required for testing POD spell"
+plan skip_all => "Pod spelling: for maintainer only" unless -d "releases";
+plan skip_all => "Test::Spelling required for checking Pod spell"
     unless eval "use Test::Spelling; 1";
 
-set_spell_cmd('aspell -l --lang=en');
+if (`type spell 2>/dev/null`) {
+    # default
+}
+elsif (`type aspell 2>/dev/null`) {
+    set_spell_cmd('aspell -l --lang=en');
+}
+else {
+    plan skip_all => "spell(1) command or compatible required for checking Pod spell"
+}
+
 add_stopwords(<DATA>);
 all_pod_files_spelling_ok();
 




More information about the Pkg-perl-cvs-commits mailing list