Mercurial > hg > lolscript

changeset 7:65035a108782

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix the call to usleep
author Jordi Gutiérrez Hermoso <jordigh@gmail.com>
date Thu, 20 Aug 2009 14:50:04 -0500
parents 6999ba7bf22b
children 2b8b0412096a
files teh-lol.pl
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/teh-lol.pl
+++ b/teh-lol.pl
@@ -57,7 +57,10 @@
         $delay += ((length $relol) - 3 + rand(5)) * 0.069;
       }
 
-      Time::HiRes::usleep($delay+2);
+      #Convert to microseconds.
+      $delay *= 1e6;
+
+      Time::HiRes::usleep($delay);
 
       Xchat::command("say $relol");
     }