Sort packages written into DB file

CVS version numbers

Perl/Webwml/L10n/Db.pm: 1.9 -> 1.10

1 files changed, 1 insertions, 1 deletions

diff --git a/Perl/Webwml/L10n/Db.pm b/Perl/Webwml/L10n/Db.pm
index 4af766d8517..0bb669faa5a 100644
--- a/Perl/Webwml/L10n/Db.pm
+++ b/Perl/Webwml/L10n/Db.pm
@@ -231,7 +231,7 @@ sub write {
                 || die "Unable to write to $file\n";
 
         printf DB "%d-%02d-%02d\n\n", Time::localtime::localtime->year() + 1900, Time::localtime::localtime->mon() + 1, Time::localtime::localtime->mday;
-        foreach my $pkg (keys %{$self->{data}}) {
+        foreach my $pkg (sort keys %{$self->{data}}) {
                 foreach (@{$self->{scalar}}) {
                         next unless defined($self->{data}->{$pkg}->{$_});
                         print DB $_.": ".$self->{data}->{$pkg}->{$_}."\n";