Fix socket close after work

[qsimpleq]

example of problem:

ulimit -n 10

run file https://gist.github.com/qsimpleq/9705093

[qsimpleq]

Короче говоря, проблема проявляется при использовании в долгоиграющих процессах. Пример просто показывает как воспроизвести.

И спасибо за пингер.

[und3f]

Hello Kirill,

thank you for a contribution. I've got next error during execution of qwe.pl:

% perl qwe.pl
Number found where operator expected at qwe.pl line 19, near "$[0"
        (Missing operator before 0?)
Number found where operator expected at qwe.pl line 19, near "$[0"
        (Missing operator before 0?)
syntax error at qwe.pl line 19, near "$[0"
Unmatched right curly bracket at qwe.pl line 25, at end of line
Unmatched right curly bracket at qwe.pl line 27, at end of line
Execution of qwe.pl aborted due to compilation errors.

[qsimpleq]

fix was updated.

[und3f]

Merged and uploaded new version to cpan.