From 38d7bbebf8335dfc4735b7aa6a51f32e7543e1c9 Mon Sep 17 00:00:00 2001
From: epg <>
Date: Mon, 19 Apr 2004 17:55:57 +0000
Subject: [PATCH] (newjob): Perl's fork returns undef for failure, not -1.

---
 fa-flacd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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';
-- 
2.56.0