Commit 120acd09 authored by Franksen, Benjamin's avatar Franksen, Benjamin
Browse files output records in deterministic (sorted) order

parent 4cb19ab3
......@@ -114,7 +114,8 @@ sub OutputBreaktables {
sub OutputRecords {
my ($out, $records) = @_;
while (my ($name, $rec) = each %{$records}) {
foreach my $name (sort(keys(%$records))) {
my $rec = $records->{$name};
next if $name ne $rec->name; # Alias
printf $out "record(%s, \"%s\") {\n", $rec->recordtype->name, $name;
printf $out " alias(\"%s\")\n", $_
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment