On Sat, 01 Aug 2026 01:06:11 +0100, Ian Jackson wrote:
Here's some of the code in Simple.pm:
while ( sysread( STDIN, my $buff, 1 ) ) {
last if $buff eq "\n";
$chunk .= $buff;
}
Suppose a signal arrives while this is executing, but doesn't cause
perl to exit or anything. Perl's signal handling machinery doesn't
set SA_RESTART nowadays. read(2) will return -1 setting errno to
EINTR. And then this will fail.
(Normal perl IO operations, so not sysread and syswrite, have the
:perlio layer which does retrying on EINTR, so are fine.)
IMO HTTP::Server::Simple ought to handle EINTR from sysread (returns
undef, sets $!) by restarting teh call.
Thanks for you bug report, which I've forwarded to https://rt.cpan.org/Ticket/Display.html?id=180563 Given that upstream doesn't seem to be very active …
I could try to prepare a patch, if you like.
… this would be great. Cheers, gregor -- .''`. https://info.comodo.priv.at -- Debian Developer https://www.debian.org : :' : OpenPGP fingerprint D1E1 316E 93A7 60A8 104D 85FA BB3A 6801 8649 AA06 `. `' Member VIBE!AT & SPI Inc. -- Supporter Free Software Foundation Europe`-
signature.asc
Description: Digital Signature
