if ($running == $threads || !@dirs) {
# Wait for children
my $pid = wait; die if $pid < 0;
+ my $dir = $pid_to_dir{$pid} or die;
if ($?) {
- print "!! ", $pid_to_dir{$pid}, " FAILED";
+ print "!! $dir FAILED [see $dir/gallery.log]";
$errors++;
} else {
- print "++ ", $pid_to_dir{$pid};
+ print "++ $dir";
+ unlink "$dir/gallery.log";
}
delete $pid_to_dir{$pid};
$running--;
}
}
-print "$done jobs, $errors errors. See gallery.log in subdirectories.\n";
+print "$done jobs, $errors errors.\n";
exit ($errors > 0);