Browse Source

* Accidentally reversed condition...

Michaël Van Canneyt 3 days ago
parent
commit
b3094cef04
1 changed files with 1 additions and 1 deletions
  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
 begin
   S:=Uppercase(GetNextWord(AStatusLine));
   S:=Uppercase(GetNextWord(AStatusLine));
-  If StartsStr('HTTP/',S) then
+  If not StartsStr('HTTP/',S) then
     Raise EHTTPClient.CreateFmt(SErrInvalidProtocolVersion,[S]);
     Raise EHTTPClient.CreateFmt(SErrInvalidProtocolVersion,[S]);
   System.Delete(S,1,5);
   System.Delete(S,1,5);
   FServerHTTPVersion:=S;
   FServerHTTPVersion:=S;