Преглед изворни кода

* Support all methods

git-svn-id: trunk@27707 -
michael пре 11 година
родитељ
комит
f28dbdafcc
1 измењених фајлова са 0 додато и 2 уклоњено
  1. 0 2
      packages/fcl-web/tests/testcgiapp.pp

+ 0 - 2
packages/fcl-web/tests/testcgiapp.pp

@@ -115,8 +115,6 @@ begin
   else
     begin
     Method:=Uppercase(Method);
-    If (Method<>'POST') and (Method<>'GET') then
-      Raise Exception.CreateFmt(SerrUnsupportedMethod,['METHOD']);
     end;
 end;
 (*