Explorar o código

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

git-svn-id: trunk@19175 -
michael %!s(int64=14) %!d(string=hai) anos
pai
achega
1579470a68
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  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;