Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

refactor: use arrayref for consistency

  • Loading branch information...
commit 0e42994d98b6df538715efc7b00d447b3bb9d2ef 1 parent 308eca5
Steven Haryanto (on PC) authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/Devel/EndStats.pm
View
6 lib/Devel/EndStats.pm
@@ -32,7 +32,7 @@ sub _inc_handler {
#return (\*FH, );
}
-my @start_time;
+my $start_time;
sub import {
my ($class, %args) = @_;
$opts{verbose} = $ENV{VERBOSE} if defined($ENV{VERBOSE});
@@ -43,7 +43,7 @@ sub import {
}
$opts{$_} = $args{$_} for keys %args;
#unshift @INC, \&_inc_handler;
- @start_time = gettimeofday();
+ $start_time = [gettimeofday()];
}
my $begin_success;
@@ -77,7 +77,7 @@ my $begin_success;
our $stats;
END {
- my $secs = @start_time ? tv_interval(\@start_time) : (time()-$^T);
+ my $secs = $start_time ? tv_interval($start_time) : (time()-$^T);
$stats = "\n";
$stats .= "# BEGIN stats from Devel::EndStats\n";
Please sign in to comment.
Something went wrong with that request. Please try again.