From 2940bfc96468965b57663b231695179dbbd3baca Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Fri, 6 Feb 2009 01:34:02 +0000
Subject: [PATCH 1/1] fix a warning

git-svn-id: file:///svnroot/lcore/trunk@37 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
 lcore.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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