Jelajahi Sumber

* fix for compilation error when building with buildunit instead of fppkg?

git-svn-id: trunk@29468 -
marco 10 tahun lalu
induk
melakukan
bb4adddd2c
1 mengubah file dengan 3 tambahan dan 2 penghapusan
  1. 3 2
      utils/fppkg/lnet/lftp.pp

+ 3 - 2
utils/fppkg/lnet/lftp.pp

@@ -106,7 +106,7 @@ type
   
   TLFTPTelnetClient = class(TLTelnetClient)
    protected
-    procedure React(const Operation, Command: Char); override;
+    function React(const Operation, Command: Char):boolean; override;
   end;
 
   { TLFTPClient }
@@ -368,8 +368,9 @@ end;
 
 { TLFTPTelnetClient }
 
-procedure TLFTPTelnetClient.React(const Operation, Command: Char);
+function TLFTPTelnetClient.React(const Operation, Command: Char):boolean;
 begin
+  result:=false;
   // don't do a FUCK since they broke Telnet in FTP as per-usual
 end;