From 5a7080b3b7ee582a04c878052b843557bb282a41 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 16 Nov 2015 20:29:28 +0000
Subject: [PATCH] * Fix bug ID #28926

git-svn-id: trunk@32350 -
---
 packages/fcl-web/src/base/custcgi.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-web/src/base/custcgi.pp b/packages/fcl-web/src/base/custcgi.pp
index ad02c21e04..97c1c3726b 100644
--- a/packages/fcl-web/src/base/custcgi.pp
+++ b/packages/fcl-web/src/base/custcgi.pp
@@ -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;