Fw: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.13.tar.gz

Message-ID: <1136942011.43c45bbb82dce@imp1-g19.free.fr>

p4raw-id: //depot/perl@26782

diff --git a/ext/Sys/Syslog/Changes b/ext/Sys/Syslog/Changes
index fb7f83c..0a0e15e 100644 (file)
--- a/ext/Sys/Syslog/Changes
+++ b/ext/Sys/Syslog/Changes
@@ -1,5 +1,18 @@
 Revision history for Sys-Syslog
 
+0.13    2006.01.11
+        [CODE] Merged blead@26768: If getservbyname fails tell what service 
+        the lookup attempt tried to use.
+        [CODE] Merged blead@26769: suppress Sys::Hostname usage and directly 
+        use INADDR_LOOPBACK.
+        [CODE] Merged blead@26772: $host needs to stay in case the user sets it.
+        [CODE] Merged blead@26773: check that $syslog_path is a socket.
+        [TESTS] RT#16980 (Alan Burlison): Sys::Syslog blows up rather 
+        spectacularly on Solaris. Corrected by previous patches. 
+        [TESTS] Applied Gisle Aas patch for a better handling of error messages,
+        then optimized it. 
+        [TESTS] RT#16974: Failed test in t/podspell. This test is now skipped.
+
 0.12    2006.01.07
         [CODE] Merged some modifications from bleadperl.
         [DOC] Added a link to an article about Sys::Syslog.

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 5974266..40b158e 100644 (file)
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -53,7 +53,7 @@ Sys::Syslog - Perl interface to the UNIX syslog(3) calls
 
 =head1 VERSION
 
-Version 0.12
+Version 0.13
 
 =head1 SYNOPSIS
 
@@ -799,10 +799,7 @@ sub connect {
         my($old) = select(SYSLOG); $| = 1; select($old);
     } else {
        @fallbackMethods = ();
-       foreach my $err (@errs) {
-           carp $err;
-       }
-       croak "no connection to syslog available";
+       croak join "\n\t- ", "no connection to syslog available", @errs
     }
 }