Explorar el Código

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

git-svn-id: trunk@19175 -
michael hace 14 años
padre
commit
1579470a68
Se han modificado 1 ficheros con 2 adiciones y 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;