in reply to Re^4: Fork and creating a thread exits the process
in thread Fork and creating a thread exits the process

fluks,

I have 64-bit Strawberry 5.30, and it has no trouble correctly running fork:

#!perl

use strict;
use warnings;
use feature 'say';
use Config;

BEGIN {
    $| = 1; # autoflush
    say "perl $^V, uname = ", $Config{myuname};
}

END { say scalar localtime, "\tprocess $$ is exiting"; }

my $pid = fork();
if($pid==0) {
    say scalar localtime, "\tI am the child $$";
    exit;
}
say scalar localtime, "\tI am the parent $$";

__END__
perl v5.30.0, uname = Win32 strawberry-perl 5.30.0.1 #1 Thu May 23 12:
+20:46 2019 x64
Fri Jul 31 06:32:31 2020    I am the parent 10128
Fri Jul 31 06:32:31 2020    process 10128 is exiting
Fri Jul 31 06:32:31 2020    I am the child -5108
Fri Jul 31 06:32:31 2020    process -5108 is exiting

[download]

What happens if you run the same code?

Replies are listed 'Best First'.
Re^6: Fork and creating a thread exits the process
by fluks (Novice) on Jul 31, 2020 at 13:59 UTC

    This test works on 32bit Strawberry. And to be clear, my program works with that Perl version too, both with forking and threads, it seems to be the only Perl that it works on.

[reply]
      This test works on 32bit Strawberry.

      But does it work for you on 64bit? I ask this because you said,

      tested now with Strawberry 64bit and I wasn't able to get it work. But I tried again starting with a fresh 32bit version at that still does work.

      With my code, I was showing a fork-based program that was known-working for me in 64bit, and wanted you to see whether or not my code worked on your 64bit Strawberry.

      32bit Strawberry ... seems to be the only Perl that it works on

      I do not see that limitation. The code I posted works for me on both 32bit and 64bit.

[reply]
[d/l]

        Sorry for the late reply.

        The test script did work on a 64bit Strawberry too.

[reply]

In Section Seekers of Perl Wisdom