Explorar o código

* Accidentally reversed condition...

Michaël Van Canneyt hai 3 días
pai
achega
b3094cef04
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-web/src/base/fphttpclient.pp

+ 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;