Hi,

I have an OO server which is accepted connections from clients using IO::Socket (relevant code follows)

if ($self->Bind()) {
    while ($self->ClientSocket($self->Accept())) {
        $self->ClientSocket->autoflush(1);

        my $pid;
        if (!defined($pid = fork())) {
            $self->LogError("Fork failed: ".$!);
        }
        # Child process
        elsif ($pid == 0) {
            while ($self->ClientSocket->connected) {
                $self->LogComment("[".$self->ClientSocket->opened."]["
+.defined($self->ClientSocket->connected)."][".defined($self->ClientSo
+cket)."]");
                sleep(5);
            }
            # Close the socket connection when the client goes away
            close($self->ClientSocket);
            exit 0;
        }
        # Parent process
        else {
            # Close the socket with the client
            close($self->ClientSocket);
        }
    }
}

[download]
When I connect as a client, the forked process starts logging the status of the client socket. The problem is that when I disconnect the client, the state of the client socket is not changed and the forked process never stops. The logfile contains the following lines: 

[1][1][1]
[1][1][1]
[1][1][1]
[1][1][1]
etc...

[download]
How do I check in the forked process that the client socket is no longer valid? And why are the opened/connected calls returning true when the client already disconnected?

TIA

In reply to Socket problem by Marcello

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.