aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2015-10-08 10:04:51 +0200
committerBjörn Gustavsson <[email protected]>2015-10-08 10:04:51 +0200
commitad208aaf06ae82b26e1c30d7d5523daa81b074ca (patch)
treeeadebf128906f7355bcd052d9a4a38dc739ad475
parent3a3fd51639fd98f01d12aebc4a15f16107930719 (diff)
parent6167d34cb448f4842474ac05e79bd79e57ffb56d (diff)
downloadotp-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.pl6
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;