Don't sleep if there are more jobs to run.

Modify `bric_queued` so that it only sleeps for `--delay` seconds if it
executed no jobs. Otherwise it immediately runs again, on the assumption that
there will be more jobs that should be executed sooner rather than later. The
upshot is that files will now be distributed much sooner after publishling.

bin/bric_queued

@@ -229,6 +229,7 @@ sub run_as_daemon {
     my $pkg = fork_to_dist();
     login();
     while (1) {
+        my $has_jobs = 0;
         for my $job ($pkg->list({
             sched_time => [undef, strfdate()],
             comp_time  => undef,
@@ -237,6 +238,7 @@ sub run_as_daemon {
             Limit      => $Chunks,
         })) {
             logit('Executing ' . $job->get_name . "\n") if $Verbose;
+            $has_jobs = 1;
             eval {
                 $job->execute_me;
                 commit_events();
@@ -245,6 +247,9 @@ sub run_as_daemon {
             terminate() if $CaughtSignal;
         }
 
+        # If we found jobs, assume there are more. Don't wait to execute them.
+        next if $has_jobs;
+
         # Flush out the publish_another queue.
         if ($pkg eq PUB_PKG) {
             eval {

lib/Bric/Changes.pod

@@ -36,6 +36,14 @@ Sponsored by Denison University. [David]
 Added the C<--chunks> option to C<bric_queued>. Sponsored by Denison
 University. [David]
 
+=item *
+
+Modified C<bric_queued> so that it only sleeps for C<--delay> seconds if it
+executed no jobs. Otherwise it immediately runs again, on the assumption that
+there will be more jobs that should be executed sooner rather than later. The
+upshot is that files will now be distributed much sooner after publishling.
+[David]
+
 =back
 
 =head1 Version 2.0.1 ()