Parcourir la source

* Also check TMPDIR, a UNIX standard used by a.o. iOS (mantis #20248)

git-svn-id: trunk@19175 -
michael il y a 14 ans
Parent
commit
1579470a68
1 fichiers modifiés avec 2 ajouts et 0 suppressions
  1. 2 0
      rtl/unix/sysutils.pp

+ 2 - 0
rtl/unix/sysutils.pp

@@ -1344,6 +1344,8 @@ begin
     Result:=GetEnvironmentVariable('TEMP');
     If (Result='') Then
       Result:=GetEnvironmentVariable('TMP');
+    If (Result='') Then
+      Result:=GetEnvironmentVariable('TMPDIR');
     if (Result='') then
       Result:='/tmp/' // fallback.
     end;