paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 19:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Fix an error in earlier Amiga support commit.

Browse Source 
git-svn-id: trunk@53868 -
This commit is contained in:
juha 2017-01-03 14:37:36 +00:00
parent a8646edc09
commit dd1798755f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/onlinepackagemanager/fpcmod/opkman_httpclient.pas
View File

@ -335,7 +335,7 @@ Function EncodeURLElement(S : String) : String;
Function DecodeURLElement(Const S : String) : String; Function DecodeURLElement(Const S : String) : String;
implementation implementation
{$IFnDEF(HASAMIGA)} {$IFnDEF HASAMIGA}
uses sslsockets; uses sslsockets;
{$ENDIF} {$ENDIF}
@ -545,7 +545,7 @@ begin
if Assigned(FonGetSocketHandler) then if Assigned(FonGetSocketHandler) then
FOnGetSocketHandler(Self,UseSSL,Result); FOnGetSocketHandler(Self,UseSSL,Result);
if (Result=Nil) then if (Result=Nil) then
{$IFnDEF(HASAMIGA)} {$IFnDEF HASAMIGA}
If UseSSL then If UseSSL then
Result:=TSSLSocketHandler.Create Result:=TSSLSocketHandler.Create
else else