Re^2: fork - child executes code outside of block

Why split the parent's code like that?

defined( my $pid = fork() )
    or die("fork: $!");

if (!$pid) {
    print "CHILD --" . "\n";
    exit;
}

print "PARENT --" . "\n";
waitpid($pid, 0) ;
print "-- PARENT " . "\n";
print "PID - $pid , MAIN PRG --" . "\n";
[download]

Comment on Re^2: fork - child executes code outside of block Download Code

Replies are listed 'Best First'.
Re^3: fork - child executes code outside of block by tybalt89 (Monsignor) on Mar 28, 2018 at 18:53 UTC
I just made the minimum change to fix the problem. It's not my favorite way of doing fork, which is: `if( my $pid = fork ) { # parent } elsif( defined $pid ) { # child exit; } else { die "$! on fork"; }` [download]	[reply] [d/l]
Re^4: fork - child executes code outside of block by ikegami (Patriarch) on Mar 28, 2018 at 19:38 UTC
The question wasn't necessarily directed at you originally, but you showed that it applies to you too. Why do you arbitrarily split the parent code in three (partly before the if, partly in the if, partly after the if)? And why do you hide the error handling code far from where the error code occurred?	[reply]
Re^5: fork - child executes code outside of block by tybalt89 (Monsignor) on Mar 28, 2018 at 19:53 UTC
To me fork() is essentially a three way branch or switch. I enclose all three parts in the same statement.	[reply]
Re^6: fork - child executes code outside of block by ikegami (Patriarch) on Mar 29, 2018 at 12:55 UTC


Perl Monk, Perl Meditation
	PerlMonks