I am trying to make a HTTP::Daemon test server that can service 2 clients simultaneously on Windows. Ithreads fork is the easiest thing to use I suppose for a test server. I am using "v5.10.1 built for MSWin32-x86-multi-thread" ActivePerl build 1007. If I comment out the fork and uncomment " #$pid = 0;" (remember the "exit(0);" too) the script works fine, but can service only 1 client at a time. I also tried the forking version of this script on Linux with perl 5.8.8, it worked perfectly. According to Visual Studio debugger, it tells me perl is deadlocked when I break it. The callstack on the child thread is 
     ntdll.dll!_KiFastSystemCallRet@0()     
     ntdll.dll!_ZwWaitForSingleObject@12()  + 0xc    
     ntdll.dll!_RtlpWaitForCriticalSection@4()  + 0x8c    
     ntdll.dll!_RtlEnterCriticalSection@4()  + 0x46    
     mswsock.dll!_WSPGetSockName@16()  + 0x8e    
     ws2_32.dll!_getsockname@12()  + 0x4d    
>    perl510.dll!win32_getsockname(unsigned int s=, sockaddr * addr=, 
+int * addrlen=)  Line 197 + 0x29    C

[download]
The callstack on the main perl thread is 
     ntdll.dll!_KiFastSystemCallRet@0()     
     ntdll.dll!_ZwDeviceIoControlFile@40()  + 0xc    
     mswsock.dll!_WSPAccept@24()  + 0x1f5    
     ws2_32.dll!_WSAAccept@20()  + 0x85    
     ws2_32.dll!_accept@12()  + 0x17    
>    perl510.dll!win32_accept(unsigned int s=2382008, sockaddr * addr=
+0x00000003, int * addrlen=0x0140f6e4)  Line 160 + 0x29    C
     perl510.dll!Perl_pp_accept(interpreter * my_perl=0x01c75b3c)  Lin
+e 2588    C
     perl510.dll!Perl_runops_standard(interpreter * my_perl=0x00243fbc
+)  Line 38 + 0xc    C
     perl510.dll!S_run_body(interpreter * my_perl=0x00243fbc, long old
+scope=1)  Line 2432 + 0x7    C
     perl510.dll!perl_run(interpreter * my_perl=0x00243fbc)  Line 2350
+ + 0xa    C
     perl510.dll!RunPerl(int argc=2, char * * argv=0x00243f08, char * 
+* env=0x01242c10)  Line 270 + 0x6    C++
     perl.exe!main(int argc=2, char * * argv=0x00243f08, char * * env=
+0x00242c10)  Line 22 + 0x12    C
     perl.exe!_mainCRTStartup()  + 0xe3    
     kernel32.dll!_BaseProcessStart@4()  + 0x23

[download]
Callstack in Perl before the freeze is 
Socket.pm, line 246, in IO::Socket::sockname
INET.pm, line 270, in IO::Socket::sockaddr
Daemon.pm, line 42, in HTTP::Daemon::url
Daemon.pm, line 147, in HTTP::Daemon::ClientConn::get_request
httpserverfork.pl, line 24, in main

[download]
The script is 
#!/usr/bin/perl -w

use HTTP::Daemon;
use warnings;
use strict;

$HTTP::Daemon::DEBUG =1;

my $page = "Hello World!";
my $httpresponsestr = "HTTP/1.1 200 OK\nConnection: close\nDate: Sat, 
+16 Oct 2010 04:41:51 GMT\nCache-Control: no-store, no-cache, must-rev
+alidate\nContent-Length: ".length($page)."\n\n".$page;
$| = 1;
my $d = HTTP::Daemon->new (LocalPort => 80) || die "server died";
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
     my $pid = fork();
     #my $pid = 0;
     if(!defined($pid))
          {die "Fork failed."}
     elsif ($pid == 0)
     {
          my $sn;
          $sn = $c->sockaddr;
          $sn = $c->sockname;
          my $r = $c->get_request;
          print "after get_request r\n";
          if ($r->method eq 'GET') {
               print "is a get\n";
               $c->print($httpresponsestr);
          }
          else {
               print "forbidden";
              $c->send_error(RC_FORBIDDEN());
          }
         $c->close;
         print "closed\n";
         #comment this out when fork disabled
         exit(0);
     }
     print "fork parent out\n";
}

[download]
Whats wrong with my code? Does perl's fork not support sockets?

In reply to fork and HTTP::Daemon freezes on windows by patcat88

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.