paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 18:28:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #28926

Browse Source 
git-svn-id: trunk@32350 -
This commit is contained in:
michael 2015-11-16 20:29:28 +00:00
parent 69d9a7a2de
commit 5a7080b3b7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/base/custcgi.pp
View File

@ -353,7 +353,7 @@ procedure TCGIRequest.InitFromEnvironment;
Var
I : Integer;
V,OV : String;
R,V,OV : String;
M : TMap;
begin
@ -373,7 +373,9 @@ begin
end;
end;
end;
ReadContent;
R:=UpCase(Method);
if (R='POST') or (R='PUT') or (ContentLength>0) then
ReadContent;
end;
procedure TCGIRequest.ReadContent;