aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2015-10-08 10:12:28 +0200
committerBjörn Gustavsson <[email protected]>2015-10-08 10:12:28 +0200
commitaed173c7fe32647d51d2eaeab6c639c8bd3978ee (patch)
tree6b2dcc5ace0a1dcdf224a62e92e0cc8e235b87ec /lib/kernel
parent50c546c4e89855dd8ce9ce55c480231819592a15 (diff)
parentad208aaf06ae82b26e1c30d7d5523daa81b074ca (diff)
downloadotp-aed173c7fe32647d51d2eaeab6c639c8bd3978ee.tar.gz
otp-aed173c7fe32647d51d2eaeab6c639c8bd3978ee.tar.bz2
otp-aed173c7fe32647d51d2eaeab6c639c8bd3978ee.zip
Merge branch 'maint'
* maint: Avoid always updating inet_dns in the primary bootstrap
Diffstat (limited to 'lib/kernel')
-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;