Bugfix: env-hash discarding characters after =.

* sysif.c (make_hash): Fix incorrect treatment of env values
which contain equal signs, due to careless use of split_str.

1 files changed, 5 insertions, 2 deletions

diff --git a/sysif.c b/sysif.c
index cd59cc64..18761e59 100644
--- a/sysif.c
+++ b/sysif.c
@@ -177,8 +177,11 @@ static val env_hash(void)
   val hash = make_hash(nil, nil, t);
 
   for (; env_strings; env_strings = cdr(env_strings)) {
-    cons_bind (key, val_cons, split_str(car(env_strings), lit("=")));
-    sethash(hash, key, car(val_cons));
+    val estr = car(env_strings);
+    val eqpos = break_str(estr, lit("="));
+    val key = sub(estr, 0, eqpos);
+    val val = sub(estr, succ(eqpos), t);
+    sethash(hash, key, val);
   }
 
   return hash;