Sort DB list by default

diff --git a/mysql/mysql-lib.pl b/mysql/mysql-lib.pl
index 5c1f2db..0cfe7f3 100755 (executable)
--- a/mysql/mysql-lib.pl
+++ b/mysql/mysql-lib.pl
@@ -162,7 +162,7 @@ if (!@rv || $@) {
        ref($t) || &error("Failed to list databases : $t");
        @rv = map { $_->[0] } @{$t->{'data'}};
        }
-return @rv;
+return sort { lc($a) cmp lc($b) } @rv;
 }
 
 # list_tables(database, [empty-if-denied], [no-filter-views])

diff --git a/postgresql/postgresql-lib.pl b/postgresql/postgresql-lib.pl
index a6b2f22..c9ff281 100755 (executable)
--- a/postgresql/postgresql-lib.pl
+++ b/postgresql/postgresql-lib.pl
@@ -149,7 +149,7 @@ sub list_databases
 {
 local $force_nodbi = 1;
 local $t = &execute_sql_safe($config{'basedb'}, 'select * from pg_database order by datname');
-return map { $_->[0] } @{$t->{'data'}};
+return sort { lc($a) cmp lc($b) } map { $_->[0] } @{$t->{'data'}};
 }
 
 # supports_schemas(database)