# New Ticket Created by Kay-Uwe Huell
# Please include the string: [perl #39829]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39829 >
Hi parrot,
unfortunatly you fail when I call your accept() op. I have fixed this
issue with attached patch.
You can test this with:
./parrot examples/io/httpd.pir
call http://localhost:1234/ from your browser.
$ ./parrot examples/io/httpd.pir
Binding to port 1234 on localhost.
The Parrot documentation can now be accessed at http://localhost:1234 .
accept: errno=22unknown method:''
Variable addrlen seems to be somehow optimized away.
DIFFSTAT:
CREDITS | 2 ++
src/io/io_unix.c | 2 +-
2 files changed, 3 insertions(+), 1 deletion(-)
happy hacking,
Kiwi
Index: src/io/io_unix.c
===================================================================
--- src/io/io_unix.c (Revision 13285)
+++ src/io/io_unix.c (Arbeitskopie)
@@ -843,7 +843,7 @@
if ((newsock = accept(io->fd, (struct sockaddr *)&newio->remote,
&addrlen)) == -1)
{
- fprintf(stderr, "accept: errno=%d", errno);
+ fprintf(stderr, "accept: errno=%d, addrlen=%d\n", errno, addrlen);
/* Didn't get far enough, free the io */
mem_sys_free(newio);
return NULL;
Index: CREDITS
===================================================================
--- CREDITS (Revision 13285)
+++ CREDITS (Arbeitskopie)
@@ -282,6 +282,8 @@
N: Juergen Boemmels
D: Parrot I/O; macro stuff in assembler.
+N: Kay-Uwe 'Kiwi' Hüll
+
N: Kenneth A Graves
D: yield and other PIR improvements
