[svn:p5ee] r10730 - p5ee/trunk/App-Context/lib/App

[email protected] Wed, 13 Feb 2008 13:33:18 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Wed Feb 13 13:33:16 2008
New Revision: 10730

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

Log:
small change to initialize the _last_log_elapsed_time so that the first log message has a 0 elapsed time instead of some random number

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	Wed Feb 13 13:33:16 2008
@@ -1585,6 +1585,9 @@
         my @timestuff = Time::HiRes::gettimeofday();
         $timestamp = time2str("%Y-%m-%d %H:%M:%S.", $timestuff[0]) . sprintf("%06d", $timestuff[1]); 
         if ($elapsed) {
+            if (!defined($self->{_last_log_elapsed_time})) {
+                $self->{_last_log_elapsed_time} = \@timestuff;
+            }
             my $elapsed = Time::HiRes::tv_interval($self->{_last_log_elapsed_time}, \@timestuff);
             $timestamp .= " " . sprintf("%.6f", $elapsed);
             $self->{_last_log_elapsed_time} = \@timestuff;