diff options
author | B. Watson <yalhcru@gmail.com> | 2015-10-13 18:05:25 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2015-10-13 18:05:25 -0400 |
commit | 28e0541c2b6c82f62a489be77a13e09644622e52 (patch) | |
tree | 6ac731f21b27180e1f2d7f585f66d999e292338f /bkt | |
parent | 10453a597b4186b1e4ed9e85c07afa3c88c7502f (diff) | |
download | misc-scripts-28e0541c2b6c82f62a489be77a13e09644622e52.tar.gz |
bkt: add missing ->() to fix sorting
Diffstat (limited to 'bkt')
-rwxr-xr-x | bkt | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -751,7 +751,7 @@ if(!$opt{C}) { # since eval is slow. my $sortsub = eval "sub " . $sortcode; - for(sort { $sortsub } keys %counts) { + for(sort { $sortsub->() } keys %counts) { (print_histogram($counts{$_}, $maxval, $histwidth), print $opt{o}) if $opt{H}; print (my $printable = render($_)); print " " x ($longest - length($printable)) unless $opt{P}; |