tools/xci2po.pl: preserve order

Perl randomizes the order when iterating a hash.  This commit attempts
to keep the diffs of POT/PO update commits small and readable.

Author: MaxKellermann

tools/xci2po.pl

@@ -2,11 +2,18 @@
 
 use strict;
 
+my @list;
 my %msges;
 
 sub add_message($$$) {
     my ($msg, $filename, $line) = @_;
-    $msges{$msg} .= "#: $filename:$line\n";
+    my $i = $msges{$msg};
+    unless (defined $i) {
+        $i = [$msg, ''];
+        push @list, $i;
+        $msges{$msg} = $i;
+    }
+    $i->[1] .= "#: $filename:$line\n";
 }
 
 while ( <@ARGV> ) {
@@ -44,6 +51,7 @@ ($$$)
     close IN;
 }
 
-while (my ($k, $v) = each %msges) {
+foreach my $i (@list) {
+    my ($k, $v) = @$i;
     print $v . "msgid \"$k\"\nmsgstr \"\"\n\n";
 }