Sort identities when listing.

1 files changed, 2 insertions, 2 deletions

diff --git a/icevault b/icevault
index 800f8a2..43b8e50 100755
--- a/icevault
+++ b/icevault
@@ -296,7 +296,7 @@ sub complete($;$) {
     }
 
     my %matches = map {( $_ => 1 )} @matches;
-    return keys %matches;
+    return sort keys %matches;
 }
 
 # Redact passwords, unless $CONFIG{'show-passwords'} is set.
@@ -898,7 +898,7 @@ elsif ($command eq 'ls') {
 
     my $delim = $CONFIG{zero} ? "\0" : "\n";
     my %matches = map {($_ => 1)} @matches;
-    print $LOCALE->encode($_), $delim foreach keys %matches;
+    print $LOCALE->encode($_), $delim foreach sort keys %matches;
 }
 
 else {