Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Avoid perl undef warning

  • Loading branch information...
commit 183f18020b34f28c11a8d887c05ab38614124994 1 parent 0ea739e
Steven Haryanto (on PC) authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/Devel/EndStats.pm
View
2  lib/Devel/EndStats.pm
@@ -149,7 +149,7 @@ END {
my $s = $opts{sort};
my $sortsub;
if ($s eq 'lines') {
- $sortsub = sub {$inc_info{$b}{$s} <=> $inc_info{$a}{$s}};
+ $sortsub = sub {($inc_info{$b}{$s}||0) <=> ($inc_info{$a}{$s}||0)};
} elsif ($s eq 'time') {
$sortsub = sub {$inc_info{$b}{$s} <=> $inc_info{$a}{$s}};
} elsif ($s eq 'order') {
Please sign in to comment.
Something went wrong with that request. Please try again.