Make UCS_to_most.pl process encodings in sorted order

petere · petere · commit 4d56115f721f · 2021-07-19T09:48:09.000+02:00
This just makes the progress output easier to follow. Reviewed-by: Kyotaro Horiguchi <horikyota.ntt@gmail.com> Reviewed-by: Heikki Linnakangas <hlinnaka@iki.fi> Discussion: https://www.postgresql.org/message-id/flat/22016aa9-ca59-15c7-01df-f292cb558c4d@enterprisedb.com
diff --git a/src/backend/utils/mb/Unicode/UCS_to_most.pl b/src/backend/utils/mb/Unicode/UCS_to_most.pl
@@ -54,7 +54,8 @@
 # make maps for all encodings if not specified
 my @charsets = (scalar(@ARGV) > 0) ? @ARGV : sort keys(%filename);
 
-foreach my $charset (@charsets)
+# the sort is just so that the output is easier to eyeball
+foreach my $charset (sort @charsets)
 {
 	my $mapping = &read_source($filename{$charset});
 

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,8 @@`
`54`	`54`	`# make maps for all encodings if not specified`
`55`	`55`	`my @charsets = (scalar(@ARGV) > 0) ? @ARGV : sort keys(%filename);`
`56`	`56`
`57`		`-foreach my $charset (@charsets)`
	`57`	`+# the sort is just so that the output is easier to eyeball`
	`58`	`+foreach my $charset (sort @charsets)`
`58`	`59`	`{`
`59`	`60`	`my $mapping = &read_source($filename{$charset});`
`60`	`61`