diff options
| author | Björn Gustavsson <[email protected]> | 2015-10-08 10:12:28 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-10-08 10:12:28 +0200 |
| commit | aed173c7fe32647d51d2eaeab6c639c8bd3978ee (patch) | |
| tree | 6b2dcc5ace0a1dcdf224a62e92e0cc8e235b87ec | |
| parent | 50c546c4e89855dd8ce9ce55c480231819592a15 (diff) | |
| parent | ad208aaf06ae82b26e1c30d7d5523daa81b074ca (diff) | |
| download | otp-aed173c7fe32647d51d2eaeab6c639c8bd3978ee.tar.gz otp-aed173c7fe32647d51d2eaeab6c639c8bd3978ee.tar.bz2 otp-aed173c7fe32647d51d2eaeab6c639c8bd3978ee.zip | |
Merge branch 'maint'
* maint:
Avoid always updating inet_dns in the primary bootstrap
| -rw-r--r-- | lib/kernel/src/inet_dns_record_adts.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/kernel/src/inet_dns_record_adts.pl b/lib/kernel/src/inet_dns_record_adts.pl index 657d2b9d35..6d719d836e 100644 --- a/lib/kernel/src/inet_dns_record_adts.pl +++ b/lib/kernel/src/inet_dns_record_adts.pl @@ -57,7 +57,8 @@ while(<DATA>) { $" = ','; $\ = "\n"; -while( my ($Name, $r) = each(%Names)) { +foreach my $Name (sort keys %Names) { + my $r = $Names{$Name}; # Create substitutions for this Name my ($Record, @Fields) = @{ $r }; my @FieldMatchValues; @@ -110,7 +111,8 @@ while( my ($Name, $r) = each(%Names)) { for my $i ( 0 .. $#INDEX ) { my $line = $INDEX[$i]; if ($line =~ s/^[*]//) { - while( my ($Name, $r) = each(%Names)) { + foreach my $Name (sort keys %Names) { + my $r = $Names{$Name}; my ($Record) = @{ $r }; $_ = $line; s/Name\b/$Name/g; |