Need help!LNet bug?

[pathletboy]

try these code on ubuntu9.10

Code: [Select]

program lclient;

{$mode objfpc}{$H+}

uses
  Classes, Crt, SysUtils, lNet, lnetbase;

var
TCP: TLTCP;
  i: Integer;
begin

i := 0;
while true do
  begin
  TCP := TLTCP.Create(nil);
  TCP.Connect('127.0.0.1',55002);
  TCP.Free;
  Inc(i);
  Writeln(IntToStr(i));
  end;
end.
it will raise a exception.

Exception : Unable to create epoll : Too many open files

i want to know,why?

[pathletboy]

i am sure it is a bug.
bug in file lepolleventer.inc
line between 23 to 50
FEpollReadFD and FEpollMasterFD created but without close.

[Almindor]

Indeed a nice find too. I have fixed it in trunk and am currently investigating other eventers for such forgotten FD closes.

If you agree, I'll include your stress-test program in my tests dir.

Thanks again for reporting.