Change 34976 by [EMAIL PROTECTED] on 2008/12/02 05:10:09
setsid() returns -1 on failure.
Affected files ...
... //depot/perl/pod/perlipc.pod#69 edit
Differences ...
==== //depot/perl/pod/perlipc.pod#69 (text) ====
Index: perl/pod/perlipc.pod
--- perl/pod/perlipc.pod#68~33977~ 2008-06-01 06:17:40.000000000 -0700
+++ perl/pod/perlipc.pod 2008-12-01 21:10:09.000000000 -0800
@@ -536,7 +536,7 @@
or die "Can't write to /dev/null: $!";
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
- setsid or die "Can't start a new session: $!";
+ die "Can't start a new session: $!" if setsid == -1;
open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
}
End of Patch.
