Change 31792 by [EMAIL PROTECTED] on 2007/09/05 10:42:15
Subject: Fw: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.20.tar.gz
From: =?iso-8859-1?b?U+liYXN0aWVu?= Aperghis-Tramoni <[EMAIL PROTECTED]>
Date: Wed, 05 Sep 2007 12:27:54 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/MANIFEST#1617 edit
... //depot/perl/ext/Sys/Syslog/Changes#11 edit
... //depot/perl/ext/Sys/Syslog/Makefile.PL#19 edit
... //depot/perl/ext/Sys/Syslog/README.win32#1 add
... //depot/perl/ext/Sys/Syslog/Syslog.pm#50 edit
... //depot/perl/ext/Sys/Syslog/t/00-load.t#5 edit
... //depot/perl/ext/Sys/Syslog/t/syslog.t#13 edit
Differences ...
==== //depot/perl/MANIFEST#1617 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1616~31750~ 2007-08-23 08:15:07.000000000 -0700
+++ perl/MANIFEST 2007-09-05 03:42:15.000000000 -0700
@@ -1082,6 +1082,7 @@
ext/Sys/Syslog/fallback/const-xs.inc Sys::Syslog constants fallback file
ext/Sys/Syslog/Makefile.PL Sys::Syslog extension makefile writer
ext/Sys/Syslog/README README for Sys::Syslog
+ext/Sys/Syslog/README.win32 README for Sys::Syslog on Windows
ext/Sys/Syslog/Syslog.pm Sys::Syslog extension Perl module
ext/Sys/Syslog/Syslog.xs Sys::Syslog extension external subroutines
ext/Sys/Syslog/t/00-load.t test for Sys::Syslog
==== //depot/perl/ext/Sys/Syslog/Changes#11 (text) ====
Index: perl/ext/Sys/Syslog/Changes
--- perl/ext/Sys/Syslog/Changes#10~31750~ 2007-08-23 08:15:07.000000000
-0700
+++ perl/ext/Sys/Syslog/Changes 2007-09-05 03:42:15.000000000 -0700
@@ -1,6 +1,9 @@
Revision history for Sys-Syslog
-0.19 -- 2007.08.xx -- Sebastien Aperghis-Tramoni (SAPER)
+0.20 -- 2007.09.05 -- Sebastien Aperghis-Tramoni (SAPER)
+ [DOC] Added README.win32 which was missing in MANIFEST.
+
+0.19 -- 2007.09.05 -- Sebastien Aperghis-Tramoni (SAPER)
[BUGFIX] CPAN-RT#20635: Fix tests to avoid problems related to the
"stream" mechanism which occured on Debian and Cygwin.
[BUGFIX] CPAN-RT#20780: Facility could not be temporarily changed.
==== //depot/perl/ext/Sys/Syslog/Makefile.PL#19 (text) ====
Index: perl/ext/Sys/Syslog/Makefile.PL
--- perl/ext/Sys/Syslog/Makefile.PL#18~31750~ 2007-08-23 08:15:07.000000000
-0700
+++ perl/ext/Sys/Syslog/Makefile.PL 2007-09-05 03:42:15.000000000 -0700
@@ -100,14 +100,14 @@
# permissions.
$_PATH_LOG = "/dev/conslog";
}
-elsif (-S "/dev/log" and -w _) {
- # Most unixes have a unix domain socket /dev/log.
- $_PATH_LOG = "/dev/log";
-}
elsif (-S "/var/run/syslog" and -w _) {
# Mac OS X puts it at a different path.
$_PATH_LOG = "/var/run/syslog";
}
+elsif (-S "/dev/log" and -w _) {
+ # Most unixes have a unix domain socket /dev/log.
+ $_PATH_LOG = "/dev/log";
+}
else {
$_PATH_LOG = "";
}
==== //depot/perl/ext/Sys/Syslog/README.win32#1 (text) ====
Index: perl/ext/Sys/Syslog/README.win32
--- /dev/null 2007-09-04 14:03:22.552961751 -0700
+++ perl/ext/Sys/Syslog/README.win32 2007-09-05 03:42:15.000000000 -0700
@@ -0,0 +1,30 @@
+NAME
+
+ README.win32 - Customise and build Sys::Syslog with Win32 EventLog support
+
+
+DESCRIPTION
+
+ This package includes support for the Win32 Event log. This requires
+ building a message file and then compiling it and linking it into the
+ final .DLL produced by MakeMaker. The default message text file used
+ by Sys::Syslog is PerlLog.mc, located in the win32/ subdirectory.
+
+ If the message file is updated then you need to go in the win32/
+ subdirectory and run the "compile.pl" command to update the relevent
+ files. Note that Sys::Syslog::Win32 is built by this process.
+
+ The following files are in the win32 directory:
+
+ PerlLog.mc -- Message file, change this if you change anything.
+ compile.pl -- Compile the message file and produce Win32.pm and
+ PerlLog.RES. Requires that mc.exe and rc.exe are
+ in the path.
+
+ PerlLog.RES -- Precompiled resource file, used when building the DLL
+ Win32.pm -- Generated Win32 module for working with the resource
file
+
+ When building win32/PerlLog.RES will be linked into the final XS file,
+ and win32/Win32.pm will be copied to lib/Sys/Syslog/Win32.pm, which will
+ then be installed by MakeMaker as per normal.
+
==== //depot/perl/ext/Sys/Syslog/Syslog.pm#50 (text) ====
Index: perl/ext/Sys/Syslog/Syslog.pm
--- perl/ext/Sys/Syslog/Syslog.pm#49~31750~ 2007-08-23 08:15:07.000000000
-0700
+++ perl/ext/Sys/Syslog/Syslog.pm 2007-09-05 03:42:15.000000000 -0700
@@ -10,7 +10,7 @@
require Exporter;
{ no strict 'vars';
- $VERSION = '0.19_01';
+ $VERSION = '0.20';
@ISA = qw(Exporter);
%EXPORT_TAGS = (
@@ -705,7 +705,7 @@
=head1 VERSION
-Version 0.19
+Version 0.20
=head1 SYNOPSIS
==== //depot/perl/ext/Sys/Syslog/t/00-load.t#5 (text) ====
Index: perl/ext/Sys/Syslog/t/00-load.t
--- perl/ext/Sys/Syslog/t/00-load.t#4~31774~ 2007-08-31 06:44:58.000000000
-0700
+++ perl/ext/Sys/Syslog/t/00-load.t 2007-09-05 03:42:15.000000000 -0700
@@ -3,8 +3,8 @@
use Test::More tests => 1;
BEGIN {
- use_ok( 'Sys::Syslog' );
+ use_ok( 'Sys::Syslog' );
}
diag( "Testing Sys::Syslog $Sys::Syslog::VERSION, Perl $], $^X" )
- if (! exists($ENV{'PERL_CORE'}));
+ unless $ENV{PERL_CORE};
==== //depot/perl/ext/Sys/Syslog/t/syslog.t#13 (xtext) ====
Index: perl/ext/Sys/Syslog/t/syslog.t
--- perl/ext/Sys/Syslog/t/syslog.t#12~31750~ 2007-08-23 08:15:07.000000000
-0700
+++ perl/ext/Sys/Syslog/t/syslog.t 2007-09-05 03:42:15.000000000 -0700
@@ -155,7 +155,7 @@
# syslog() with facilities "local0" and "local1" (as a strings),
should fail
$r = eval { syslog('local0,local1', "$test_string by connecting to a
$sock_type socket") } || 0;
- like( $@, '/^syslog: too many facilities given: local1/',
"[$sock_type] syslog() called with level 'info,notice'" );
+ like( $@, '/^syslog: too many facilities given: local1/',
"[$sock_type] syslog() called with level 'local0,local1'" );
ok( !$r, "[$sock_type] syslog() should return false: '$r'" );
# syslog() with level "info" (as a string), should pass
End of Patch.
