From 28e0541c2b6c82f62a489be77a13e09644622e52 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Tue, 13 Oct 2015 18:05:25 -0400
Subject: bkt: add missing ->() to fix sorting

---
 bkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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};
-- 
cgit v1.2.3