2
0
Эх сурвалжийг харах

* Accidentally reversed condition...

Michaël Van Canneyt 1 долоо хоног өмнө
parent
commit
b3094cef04

+ 1 - 1
packages/fcl-web/src/base/fphttpclient.pp

@@ -1029,7 +1029,7 @@ Var
 
 begin
   S:=Uppercase(GetNextWord(AStatusLine));
-  If StartsStr('HTTP/',S) then
+  If not StartsStr('HTTP/',S) then
     Raise EHTTPClient.CreateFmt(SErrInvalidProtocolVersion,[S]);
   System.Delete(S,1,5);
   FServerHTTPVersion:=S;