X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FSpeak.pm;h=dd38346287e57e681a19e1b8ac326f200a8bfd0e;hb=525b9167625b04ff3560456ec8329d1c640bf22d;hp=d46249075db8f77950fdf171ba1410040b809adc;hpb=f3e0cdceb40c69dc13b1edf6d9d2af3bd38798c1;p=clearscm.git

diff --git a/lib/Speak.pm b/lib/Speak.pm
index d462490..dd38346 100644
--- a/lib/Speak.pm
+++ b/lib/Speak.pm
@@ -124,10 +124,12 @@ Returns:
   # backoff a little and try again.
   my $attempts   = 0;
   my $maxretries = 3;
-  my $backoff    = 2;
 
   my ($status, @output);
 
+  # Log message to log file if $log was passed in.
+  $log->msg($msg) if $log;
+
   while ($attempts++ < $maxretries) {
     ($status, @output) = Execute "/usr/local/bin/gt \"$msg\"";
 
@@ -140,9 +142,9 @@ Returns:
         error $errmsg;
       } # if
 
-      sleep $backoff++;
+      sleep int rand 10;
     } else {
-      return; # We said our piece...
+      return;
     } # if
   } # while