sort the lists of games and commands

2 files changed, 3 insertions, 3 deletions

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index 3e8394a..52be3a9 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -133,8 +133,8 @@ sub game_package {
 
 sub game_list {
     my $self = shift;
-    return join ' ', map { s/Bot::Games::Game:://; $self->prefix . lc }
-                         $self->games;
+    return join ' ', sort map { s/Bot::Games::Game:://; $self->prefix . lc }
+                              $self->games;
 }
 
 sub _format {
diff --git a/lib/Bot/Games/Game.pm b/lib/Bot/Games/Game.pm
index 2bc467c..bba2b16 100644
--- a/lib/Bot/Games/Game.pm
+++ b/lib/Bot/Games/Game.pm
@@ -60,7 +60,7 @@ command cmdlist => sub {
             if $method->meta->can('does_role')
             && $method->meta->does_role('Bot::Games::Meta::Role::Command');
     }
-    return join ' ', map { '-' . $_ } @commands;
+    return join ' ', sort map { '-' . $_ } @commands;
 }, needs_init => 0;
 
 # this happens in Bot::Games, since we want to add the say method from there