develooper Front page | perl.perl5.porters | Postings from March 2006

Re: Making IO::Socket pass test on Win32

Thread Previous | Thread Next
From:
Steve Hay
Date:
March 31, 2006 04:06
Subject:
Re: Making IO::Socket pass test on Win32
Message ID:
442D1AC2.3040202@uk.radan.com
demerphq wrote:
> On 3/31/06, Steve Hay <steve.hay@uk.radan.com> wrote:
>> demerphq wrote:
>>> diff -burd d:\.cpan\build\IO-1.23\/t/io_sock.t IO-1.23/t/io_sock.t
>>> --- d:\.cpan\build\IO-1.23\/t/io_sock.t       2006-03-26 04:27:13.000000000 +0200
>>> +++ IO-1.23/t/io_sock.t       2006-03-26 14:47:08.034134600 +0200
>>> @@ -17,7 +17,7 @@
>>>      elsif ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bIO\b/) {
>>>       $reason = 'IO extension unavailable';
>>>      }
>>> -    elsif (! $Config{'d_fork'}) {
>>> +    elsif (! $Config{'d_fork'} && $^O ne "MSWin32" ) {
>>>       $reason = 'no fork';
>>>      }
>>>      if ($reason) {
>> This bit makes io_sock.t fail tests 2-26 when using a non-threaded perl
>> on Win32:
>>
>> C:\p5p\bleadperl\t>.\perl -I..\lib ..\ext\IO\t\io_sock.t
>> 1..26
>> ok 1
>> The fork function is unimplemented at ..\ext\IO\t\io_sock.t line 59.
> 
> Any recommendation on a better Config test to use?

The fork() emulation on Win32 is provided by building with all three of 
the Makefile options: USE_MULTI, USE_ITHREADS and USE_IMP_SYS.

The former two can be tested using $Config{usemultiplicity} and 
$Config{useithreads} respectively, but there is no %Config entry 
corresponding to USE_IMP_SYS.  The effect of USE_IMP_SYS is to set 
-DPERL_IMPLICIT_SYS and link in perllib.obj, so all you can really do is 
to look for -DPERL_IMPLICIT_SYS in $Config{ccflags}.

The other obvious way to tell, I guess, is to suck it and see.  The 
following works OK for me:

eval {
   my $pid;
   if ($pid = fork()) {
     waitpid($pid, 0);
   }
   else {
     exit;
   }
   1;
};
if ($@) {
   print "No fork()\n";
}
else {
   print "Have fork()\n";
}



------------------------------------------------
Radan Computational Ltd.

The information contained in this message and any files transmitted with it are confidential and intended for the addressee(s) only. If you have received this message in error or there are any problems, please notify the sender immediately. The unauthorized use, disclosure, copying or alteration of this message is strictly forbidden. Note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Radan Computational Ltd. The recipient(s) of this message should check it and any attached files for viruses: Radan Computational will accept no liability for any damage caused by any virus transmitted by this email.

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About