Permalink
Browse files

fallback to $^T if \@start_time is not recorded

  • Loading branch information...
1 parent 79e51ca commit 2e9b8eb7c22e0ca9c2f7db4bf897b3c816a34b9b Steven Haryanto (on PC) committed Feb 16, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Devel/EndStats.pm
View
@@ -152,7 +152,7 @@ my $begin_success;
our $stats;
END {
- my $secs = tv_interval(\@start_time);
+ my $secs = @start_time ? tv_interval(\@start_time) : (time()-$^T);
$stats = "\n";
$stats .= "# BEGIN stats from Devel::EndStats\n";

0 comments on commit 2e9b8eb

Please sign in to comment.