(deljob): This was trying to call WIFEXITED, WEXITSTATUS, etc. on the

[flac-archive] / fa-flacd

diff --git a/fa-flacd b/fa-flacd
index cbcc5c6511906ec0030fdbe3b8d1169406e0219f..26b0ff6837ae75477c14f15580ff4063d4df5360 100755 (executable)
--- a/fa-flacd
+++ b/fa-flacd
@@ -63,7 +63,7 @@ sub get_tags {
             verbose("DATE $date from $fn\n");
         }
     }
-    close(TAGS);
+    close(TAGS) or die("close($fn): $!");
 
     return ($artist, $album, $date, @tags);
 }
@@ -115,6 +115,8 @@ sub flac {
 
     rename("$artist/$album.flac-tmp", "$artist/$album.flac")
       or die("rename($artist/$album.flac-tmp, $artist/$album.flac): $!");
+
+    return 0;
 }
 
 sub reaper {
@@ -137,8 +139,7 @@ sub newjob {
     } elsif ($pid == 0) {
         $SIG{CHLD} = 'IGNORE';
         open(STDERR, ">$dir/log") or die("open(STDERR, >$dir/log): $!");
-        flac($dir);
-        exit(0);
+        exit(flac($dir));
     }
 
     verbose("new job $pid for $dir\n");
@@ -152,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)) {