diff options
| author | Björn Gustavsson <[email protected]> | 2015-10-08 10:04:51 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-10-08 10:04:51 +0200 |
| commit | ad208aaf06ae82b26e1c30d7d5523daa81b074ca (patch) | |
| tree | eadebf128906f7355bcd052d9a4a38dc739ad475 | |
| parent | 3a3fd51639fd98f01d12aebc4a15f16107930719 (diff) | |
| parent | 6167d34cb448f4842474ac05e79bd79e57ffb56d (diff) | |
| download | otp-ad208aaf06ae82b26e1c30d7d5523daa81b074ca.tar.gz otp-ad208aaf06ae82b26e1c30d7d5523daa81b074ca.tar.bz2 otp-ad208aaf06ae82b26e1c30d7d5523daa81b074ca.zip | |
Merge branch 'bjorn/kernel/inet_dns/OTP-13027' into maint
* bjorn/kernel/inet_dns/OTP-13027:
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; |