This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fw: CPAN Upload: S/SA/SAPER/Sys-Syslog-0.13.tar.gz
[perl5.git] / ext / Sys / Syslog / Syslog.pm
index 5974266..40b158e 100644 (file)
@@ -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
     }
 }