浏览代码

+ Fix for ansistring conversion

michael 26 年之前
父节点
当前提交
186749643c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      fcl/linux/ezcgi.inc

+ 1 - 1
fcl/linux/ezcgi.inc

@@ -10,7 +10,7 @@ begin
    // Linux version returns pchar.
    p:=linux.getenv(EnvVar);
    if P<>nil then
-     getenv:=ansistring(p)
+     getenv:=strpas(p)
    else
      getenv:='';
 end;