Changeset 1870 for branches/release-34/tools/run-periodic-tasks

Timestamp:

04/13/08 04:23:51 (19 months ago)

Author:

bchoate

Message:

Prevent fatal error when attempting to use TheSchwartz without List::Util module. BugId:77208

Files:

• branches/release-34/tools/run-periodic-tasks (modified) (3 diffs)

branches/release-34/tools/run-periodic-tasks

@@ -26 +26 @@
 my $sleep     = 5;
 my $help      = 0;
-# my $sync      = 0;
-# my $rsync_opt = '';
 my $load      = 10;
 my $verbose   = 0;
@@ -35 +33 @@
     "daemon"      => \$daemonize,
     "sleep=i"     => \$sleep,
-    # "help|?"      => \$help,
-    # "throttle=i"  => \%throttle,
-    # "worker=s"    => \$worker,
-    # "sync"        => \$sync,
-    # "to|target=s" => \@target,
-    # "rsync=s"     => \$rsync_opt,
     "load=i"      => \$load,
     "scoreboard=s"=> \$scoreboard,
@@ -51 +43 @@
 $cfg{prioritize} = 1;
 
-require MT::TheSchwartz;
-my $client = MT::TheSchwartz->new(%cfg);
-no warnings 'once';
-$TheSchwartz::FIND_JOB_BATCH_SIZE = $load;
+my $client = eval {
+    require MT::TheSchwartz;
+    my $c = MT::TheSchwartz->new(%cfg);
+    no warnings 'once';
+    $TheSchwartz::FIND_JOB_BATCH_SIZE = $load;
+    $c;
+};
+if ((my $error = $@) && $verbose) {
+    print STDERR "Error initializing TheSchwartz: $error\n";
+}
 
-if ($daemonize) {
+if ($daemonize && $client) {
     $client->work_periodically($sleep);
 } else {
     # First, run periodic tasks
     $mt->run_tasks();
-    $client->work_until_done;
+    $client->work_until_done if $client;
 }