Change 32799 by [EMAIL PROTECTED] on 2008/01/01 23:43:42
Upgrade to Sys-Syslog-0.24
Affected files ...
... //depot/perl/ext/Sys/Syslog/Syslog.pm#56 edit
... //depot/perl/ext/Sys/Syslog/t/syslog.t#16 edit
Differences ...
==== //depot/perl/ext/Sys/Syslog/Syslog.pm#56 (text) ====
Index: perl/ext/Sys/Syslog/Syslog.pm
--- perl/ext/Sys/Syslog/Syslog.pm#55~32654~ 2007-12-19 07:47:56.000000000
-0800
+++ perl/ext/Sys/Syslog/Syslog.pm 2008-01-01 15:43:42.000000000 -0800
@@ -10,7 +10,7 @@
require Exporter;
{ no strict 'vars';
- $VERSION = '0.23';
+ $VERSION = '0.24';
@ISA = qw(Exporter);
%EXPORT_TAGS = (
@@ -771,7 +771,7 @@
=head1 VERSION
-Version 0.23
+Version 0.24
=head1 SYNOPSIS
==== //depot/perl/ext/Sys/Syslog/t/syslog.t#16 (xtext) ====
Index: perl/ext/Sys/Syslog/t/syslog.t
--- perl/ext/Sys/Syslog/t/syslog.t#15~32654~ 2007-12-19 07:47:56.000000000
-0800
+++ perl/ext/Sys/Syslog/t/syslog.t 2008-01-01 15:43:42.000000000 -0800
@@ -193,6 +193,9 @@
skip "the 'unix' mechanism works, so the tests will likely fail with the
'stream' mechanism", 10
if grep {/unix/} @passed;
+ skip "not testing setlogsock('stream'): _PATH_LOG unavailable", 10
+ unless -e Sys::Syslog::_PATH_LOG();
+
# setlogsock() with "stream" and an undef path
$r = eval { setlogsock("stream", undef ) } || '';
is( $@, '', "setlogsock() called, with 'stream' and an undef path" );
End of Patch.
