[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;