[ViewVC] Diff of: cvs/Coro/Coro/Debug.pm

Comparing Coro/Coro/Debug.pm (file contents):
Revision 1.113 by root, Thu Dec 13 00:20:40 2012 UTC vs.
Revision 1.114 by root, Fri Feb 8 22:29:18 2013 UTC

 use common::sense;
 use overload ();
 use Carp ();
-use Time::HiRes ();
 use Scalar::Util ();
 use Guard;
 use AnyEvent ();
       undef
    }
 }
 sub format_msg($$) {
-   my ($time, $micro) = Time::HiRes::gettimeofday;
+   my ($time, $micro) = Coro::Util::gettimeofday;
    my ($sec, $min, $hour, $day, $mon, $year) = gmtime $time;
    my $date = sprintf "%04d-%02d-%02dZ%02d:%02d:%02d.%04d",
                       $year + 1900, $mon + 1, $day, $hour, $min, $sec, $micro / 100;
    sprintf "%s (%d) %s", $date, $_[0], $_[1]
 }
       my $cmd = $1;
       my $sub = eval "sub { $cmd }";
       my $fh = select;
       Coro::async_pool {
          $Coro::current->{desc} = $cmd;
-         my $t = Time::HiRes::time;
+         my $t = Coro::Util::time;
          my @res = eval { &$sub };
-         $t = Time::HiRes::time - $t;
+         $t = Coro::Util::time - $t;
          print {$fh}
             "\rcommand: $cmd\n",
             "execution time: $t\n",
             "result: ", $@ ? $@ : (join " ", @res) . "\n",
             "> ";

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines