Hmm, more bugs:

   sub stopbusywaiting {
      Stem::Event::stop_loop;
   }

   my $stopper = new Stem::Event::Timer
      object   => $dummy,
      method   => "stopbusywaiting",
      delay    => 0.05,
      interval => 0.05; # bug workaround

   warn "a\n";
   $stopper->start;
   Stem::Event::start_loop;
   $stopper->cancel;
   warn "b\n";

This always takes a second, here is an strace:

   http://ue.tst.eu/57e55320bf26d8c4ae403e722bd7e268.txt

adding "use Time::HiRes 'time'" to Perl.pm makes it run fast (yes,
diretcly below the code that should handle this, something is broken
witht he time::hires loading code apparently, maybe its this weird
core-overwriting issue).

-- 
                The choice of a       Deliantra, the free code+content MORPG
      -----==-     _GNU_              http://www.deliantra.net
      ----==-- _       generation
      ---==---(_)__  __ ____  __      Marc Lehmann
      --==---/ / _ \/ // /\ \/ /      [EMAIL PROTECTED]
      -=====/_/_//_/\_,_/ /_/\_\

Reply via email to