From 4f9953460f120c50fb15173c50f544dcbe8a2c31 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 14 Aug 2017 11:26:41 +0200
Subject: systemunit.pas: shellExpand ersetzt nun auch "~"

---
 systemunit.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/systemunit.pas b/systemunit.pas
index cb09456..c99d05a 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -125,7 +125,7 @@ begin
   while pos('${',result)>0 do begin
     s:=erstesArgument(result,'${',false);
     name:=erstesArgument(result,'}',false);
-    result:=s+GetEnvironmentVariable(name)+result;
+    result:=s+getEnvironmentVariable(name)+result;
   end;
 end;
 
@@ -220,6 +220,14 @@ begin
     end
     else
       inc(i);
+  for i:=0 to sa.count-1 do begin
+    s:=sa[i];
+    if startetMit('~/',s) then
+      s:=getEnvironmentVariable('HOME')+'/'+s
+    else
+      continue;
+    sa[i]:=s;
+  end;
 end;
 
 function mkTemp(s: string): string;
-- 
cgit v1.2.3-70-g09d2