From: beware <beware@bircd.org>
Date: Fri, 6 Feb 2009 01:34:02 +0000 (+0000)
Subject: fix a warning
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/2940bfc96468965b57663b231695179dbbd3baca?ds=sidebyside

fix a warning

git-svn-id: file:///svnroot/lcore/trunk@37 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/lcore.pas b/lcore.pas
index 6effe0e..4be20f4 100755
--- a/lcore.pas
+++ b/lcore.pas
@@ -485,7 +485,10 @@ var
 //  fdstestr : fdset;
 //  fdstestw : fdset;
 begin
-  if state <> wsconnected then exit;
+  if state <> wsconnected then begin
+    result := -1;
+    exit;
+  end;
 
   lensent := sendq.get(data,packetbasesize*2);
   if assigned(data) then result := myfdwrite(fdhandleout,data^,lensent) else result := 0;