From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 2 Dec 2008 05:10:09 +0000 (+0000)
Subject: setsid() returns -1 on failure.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4cd47ac59d76a2228d65807ac3ac3a0ef9ed7c7;p=p5sagit%2Fp5-mst-13.2.git

setsid() returns -1 on failure.

p4raw-id: //depot/perl@34976
---

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 3e916a0..de6ba58 100644
--- 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: $!";
     }