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

[flac-archive] / fa-flacd

diff --git a/fa-flacd b/fa-flacd
index 316e5cc9521ace11d27d5c09ed3f3401df162ba7..74c35abb963b17fcdc75c0b7b69838e6d896a453 100755 (executable)
--- 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';
@@ -153,7 +153,7 @@ sub deljob {
     my $status;
 
     $pid = $finished[$i][0];
-    $status = WEXITSTATUS($finished[$i][1]);
+    $status = $finished[$i][1];
 
     verbose("$pid finished (");
     if (WIFEXITED($status)) {