From 2869b65bcb5fa65ea0505c6fa513aeea9a0fbdc6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Antoine=20Beaupr=C3=A9?= <anarcat@koumbit.org>
Date: Sat, 7 Sep 2013 18:25:46 -0400
Subject: [PATCH] recover gracefully from syslog failures

---
 IkiWiki.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 87ddb1b56..2c0b1153c 100644
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -728,6 +728,7 @@ sub debug ($) {
 }
 
 my $log_open=0;
+my $log_failed=0;
 sub log_message ($$) {
 	my $type=shift;
 
@@ -738,9 +739,15 @@ sub log_message ($$) {
 			Sys::Syslog::openlog('ikiwiki', '', 'user');
 			$log_open=1;
 		}
-		return eval {
+		eval {
 			Sys::Syslog::syslog($type, "[$config{wikiname}] %s", join(" ", @_));
 		};
+                if ($@) {
+                    print STDERR "failed to syslog: $@" unless $log_failed;
+                    $log_failed=1;
+                    print STDERR "@_\n";
+                }
+                return $@;
 	}
 	elsif (! $config{cgi}) {
 		return print "@_\n";
-- 
2.39.5