bkt: add missing ->() to fix sorting

1 files changed, 1 insertions, 1 deletions

diff --git a/bkt b/bkt
index eb1092c..df949d8 100755
--- a/bkt
+++ b/bkt
@@ -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};