From: epg <>
Date: Mon, 19 Apr 2004 17:55:57 +0000 (+0000)
Subject: (newjob): Perl's fork returns undef for failure, not -1.
X-Git-Url: https://diplodocus.org/git/flac-archive/commitdiff_plain/38d7bbebf8335dfc4735b7aa6a51f32e7543e1c9?ds=sidebyside;hp=0e57b4e4f4617beeb3f89d543a576b41bec0274f

(newjob): Perl's fork returns undef for failure, not -1.
---

diff --git a/fa-flacd b/fa-flacd
index 26b0ff6..74c35ab 100755
--- a/fa-flacd
+++ b/fa-flacd
@@ -134,7 +134,7 @@ sub newjob {
     my $pid;
 
     $pid = fork();
-    if ($pid == -1) {
+    if (not defined($pid)) {
         die("fork: $!");
     } elsif ($pid == 0) {
         $SIG{CHLD} = 'IGNORE';