[svn:p5ee] r11713 - in p5ee/trunk/App-Context/lib/App: . Context/POE

[spadkins]

Author: spadkins
Date: Mon Sep  1 11:33:46 2008
New Revision: 11713

Modified:
   p5ee/trunk/App-Context/lib/App/Context.pm
   p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm

Log:
fixed some profiling things

Modified: p5ee/trunk/App-Context/lib/App/Context.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context.pm   (original)
+++ p5ee/trunk/App-Context/lib/App/Context.pm   Mon Sep  1 11:33:46 2008
@@ -1729,6 +1729,7 @@
         my $key_stack      = $profile_state->{key_stack};
         my @timeofday      = Time::HiRes::gettimeofday();
         my $time_elapsed   = Time::HiRes::tv_interval($last_timeofday, [EMAIL 
PROTECTED]);
+        $profile_state->{last_timeofday}  = [EMAIL PROTECTED];
         $self->_profile_accumulate($profile_stats, $key, $time_elapsed);
         while ($#$key_stack > -1) {
             my $last_key = pop(@$key_stack);

Modified: p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm        (original)
+++ p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm        Mon Sep  1 
11:33:46 2008
@@ -462,7 +462,6 @@
 sub dispatch_pending_async_events {
     &App::sub_entry if ($App::trace);
     my ($self, $max_events) = @_;
-    $self->profile_start("dispatch_pending_async_events") if 
$self->{poe_profile};
     my $t0 = [gettimeofday];
     $self->log({level=>3},"dispatch_pending_async_events enter: 
max_events=[$max_events]\n") if $self->{poe_trace};
 
@@ -502,7 +501,6 @@
     }
 
     $self->log({level=>3},"dispatch_pending_async_events exit: 
events_occurred=[$events_occurred] time=[" . sprintf("%.4f", tv_interval($t0, 
[gettimeofday])) . "]\n") if $self->{poe_trace};
-    $self->profile_stop("dispatch_pending_async_events") if 
$self->{poe_profile};
     &App::sub_exit($events_occurred) if ($App::trace);
     return($events_occurred);
 }