From c6b6bdf43905f0cfd2e8c487473e3ddba71e534d Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Fri, 6 Mar 2020 09:54:21 +0100
Subject: Escato: Fix ordering

---
 escato.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'escato.pl')

diff --git a/escato.pl b/escato.pl
index cc6fa70..514b4c9 100755
--- a/escato.pl
+++ b/escato.pl
@@ -56,7 +56,7 @@ sub show_dumps {
             push @shures, {username => $shur->{'username'},
                            data => tg_id_dumps($shur->{'id'})};
         }
-        foreach my $shur (sort { $b->{data}{month} cmp $a->{data}{month} } @shures) {
+        foreach my $shur (sort { $b->{data}{month} <=> $a->{data}{month} } @shures) {
             printf "%d - @%s ha cagado %d veces este mes, y %d al año.\n",
                 $position++, $shur->{username}, $shur->{data}{month}, $shur->{data}{year};
         }
-- 
cgit v1.2.3