raps2 list: Sort by account name

2 files changed, 3 insertions, 1 deletions

diff --git a/Changelog b/Changelog
index 56545d1..bfd49ff 100644
--- a/Changelog
+++ b/Changelog
@@ -3,6 +3,7 @@ git HEAD
     * Terminal input is now read via Term::ReadLine (included in perl core)
     * New commands: "raps2 del <account>" and "raps2 edit <account>"
     * Remove autodie, it caused a major performance impact
+    * raps2 list now sorts by account name
 
 raps2 0.2 - Fri May 13 2011
 
diff --git a/lib/App/Raps2.pm b/lib/App/Raps2.pm
index c416592..6acac7f 100644
--- a/lib/App/Raps2.pm
+++ b/lib/App/Raps2.pm
@@ -376,8 +376,9 @@ Lists all saved passwords and their logins and urls
 
 sub cmd_list {
 	my ($self) = @_;
+	my @files = read_dir($self->{xdg_data});
 
-	for my $file (read_dir($self->{xdg_data})) {
+	for my $file (sort @files) {
 		my %key = $self->file_to_hash($self->{xdg_data} . "/${file}");
 		$self->ui->list(
 			['Account', $file],