diff options
| author | Sébastien Aperghis-Tramoni <sebastien@aperghis.net> | 2006-01-11 03:13:31 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-11 12:25:24 +0000 |
| commit | 5f9a320f7db18c2f082bcc387670ef2c479af6b0 (patch) | |
| tree | 9415fad094eff9d0c37b0ea280056b86f7bb89e0 /ext/Sys/Syslog | |
| parent | bb4058bb936dbf9d1160c9511e5977b96d967664 (diff) | |
| download | perl-5f9a320f7db18c2f082bcc387670ef2c479af6b0.tar.gz | |
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
Diffstat (limited to 'ext/Sys/Syslog')
| -rw-r--r-- | ext/Sys/Syslog/Changes | 13 | ||||
| -rw-r--r-- | ext/Sys/Syslog/Syslog.pm | 7 |
2 files changed, 15 insertions, 5 deletions
diff --git a/ext/Sys/Syslog/Changes b/ext/Sys/Syslog/Changes index fb7f83cde7..0a0e15e147 100644 --- 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 5974266da2..40b158e288 100644 --- 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 } } |