From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 27 Dec 2005 17:37:48 +0000 (+0000)
Subject: (set_env_dir): New function.
X-Git-Tag: release/2.7.26~15
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cfb66ee856ebcd4d50405b0f5b5b8881d09cb582;p=lilypond.git

(set_env_dir): New function.
(set_relocation): Use it to fix setting PANGO_PREFIX.
---

diff --git a/ChangeLog b/ChangeLog
index 7b96aa657b..affb81ba29 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-27  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* lily/relocate.cc (set_env_dir): New function.
+	(set_relocation): Use it to fix setting PANGO_PREFIX.
+
 2005-12-27  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* input/regression/stem-direction-context.ly: remove rest.
diff --git a/lily/relocate.cc b/lily/relocate.cc
index 2783973d63..d8efda1a41 100644
--- a/lily/relocate.cc
+++ b/lily/relocate.cc
@@ -50,6 +50,16 @@ set_env_file (char const *key, String value)
   return -1;
 }
 
+static int
+set_env_dir (char const *key, String value)
+{
+  if (is_dir (value))
+    return sane_putenv (key, value, false);
+  else if (be_verbose_global)
+    warning (_f ("no such directory: %s for %s", value, key));
+  return -1;
+}
+
 static int
 prepend_env_path (char const *key, String value)
 {
@@ -127,7 +137,7 @@ set_relocation (String bindir, String prefix)
 				 SCM_MAJOR_VERSION, SCM_MINOR_VERSION));
   set_env_file ("PANGO_RC_FILE", sysconfdir + "/pango/pangorc");
 
-  sane_putenv ("PANGO_PREFIX", prefix, true);
+  set_env_dir ("PANGO_PREFIX", prefix);
 		
   prepend_env_path ("PATH", bindir);
 }