setsid() returns -1 on failure.

p4raw-id: //depot/perl@34976

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 3e916a0..de6ba58 100644 (file)
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -536,7 +536,7 @@ output doesn't wind up on the user's terminal).
                                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: $!";
     }