http://qs321.pair.com?node_id=1106024


in reply to use sysread to read non-blocking filehandle

Two calls to last doesn't look right. Maybe one of these should be a next?

        if ($! == EAGAIN()) {
            print "\nEAGAIN is set\n";
            last;
        } else {
            last;
        }

[download]

In Section Seekers of Perl Wisdom