Add debug mode.

diff --git a/fa-flacd b/fa-flacd
index 50a936c..8d3a5a1 100755 (executable)
--- a/fa-flacd
+++ b/fa-flacd
@@ -21,6 +21,7 @@ use Getopt::Long qw(:config gnu_getopt no_ignore_case);
 use POSIX ':sys_wait_h';
 use Pod::Usage;
 
+my $debug;
 my $verbose;
 my @jobs;
 my @finished;
@@ -137,10 +138,14 @@ sub newjob {
     my $dir = shift;
     my $pid;
 
-    $pid = fork();
-    if (not defined($pid)) {
-        die("fork: $!");
-    } elsif ($pid == 0) {
+    if (not $debug) {
+        $pid = fork();
+        if (not defined($pid)) {
+            die("fork: $!");
+        }
+    }
+
+    if ($debug or $pid == 0) {
         $SIG{CHLD} = 'IGNORE';
         open(STDERR, ">$dir/log") or die("open(STDERR, >$dir/log): $!");
         exit(flac($dir));
@@ -205,6 +210,7 @@ MAIN: {
 
     $jobs = 4;
     GetOptions(
+               'debug|X' => \$debug,
                'jobs|j=i' => \$jobs,
                'verbose|v' => \$verbose,
                'help|h|?' => \$help,