From: Don Armstrong <don@debian.org>
Date: Thu, 4 Mar 2010 01:56:55 +0000 (-0800)
Subject: Imported Debian patch 2.12.3-3
X-Git-Tag: debian/2.12.3-3^0
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;ds=sidebyside;h=c0fcaf8a69ee802a1b4e9158201ce6a2bb11b36c;p=lilypond.git

Imported Debian patch 2.12.3-3
---

diff --git a/debian/changelog b/debian/changelog
index 45fa63e626..bcd1ee9607 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+lilypond (2.12.3-3) unstable; urgency=low
+
+  * Use /dev/null if /dev/tty isn't writable (Closes: #572290)
+
+ -- Don Armstrong <don@debian.org>  Wed, 03 Mar 2010 17:56:55 -0800
+
 lilypond (2.12.3-2) unstable; urgency=low
 
   * Build-Depend on rsync (Closes: #571670)
diff --git a/scm/lily.scm b/scm/lily.scm
index d62c70bb0f..3b6ef0dee7 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -673,7 +673,9 @@ PIDs or the number of the process."
 	  (if separate-logs
 	      (open-file (if (string-or-symbol? (ly:get-option 'log-file))
 			     (format "~a.log" (ly:get-option 'log-file))
-			     "/dev/tty") "a") #f))
+			     (if (file-writable? "/dev/tty")
+				 ("/dev/tty")
+				 ("/dev/null"))) "a") #f))
 	 (do-measurements (ly:get-option 'dump-profile))
 	 (handler (lambda (key failed-file)
 		    (set! failed (append (list failed-file) failed)))))