From b9145f281907b5914953227bf72b41e920fe2f7e Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@belial.triptico.com>
Date: Mon, 19 Nov 2007 13:07:51 +0100
Subject: [PATCH] Fixed tag sorting.

---
 Gruta.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Gruta.pm b/Gruta.pm
index 74a8eab..6e96f67 100644
--- a/Gruta.pm
+++ b/Gruta.pm
@@ -112,7 +112,7 @@ sub tags {
 
 	my @l = $self->_call('tags', 0, @_);
 
-	return sort { $b->[0] <=> $a->[0] } @l;
+	return sort { $a->[0] cmp $b->[0] } @l;
 }
 
 sub insert_topic { my $self = shift; return $self->_call('insert_topic', 1, @_); }
-- 
2.11.4.GIT