aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRaimo Niskanen <[email protected]>2011-06-01 12:32:00 +0200
committerRaimo Niskanen <[email protected]>2011-06-01 12:32:00 +0200
commit9507f8ed8c5d67c4c239f9e1143156402e1bfe91 (patch)
tree16de53e5f5d2b258814c431e5f5acef5bfb3aa5c
parent14edda24cbd8152d7039019252245494a141c772 (diff)
parentf25432e45dc48c439f5d2d23581cd4c5fb6ba8e3 (diff)
downloadotp-9507f8ed8c5d67c4c239f9e1143156402e1bfe91.tar.gz
otp-9507f8ed8c5d67c4c239f9e1143156402e1bfe91.tar.bz2
otp-9507f8ed8c5d67c4c239f9e1143156402e1bfe91.zip
Merge branch 'raimo/inet_dns-dialyzer-fix' into dev
* raimo/inet_dns-dialyzer-fix: Stop generating some unused clauses for make_dns_rr_opt/1 local to inet_dns
-rw-r--r--lib/kernel/src/inet_dns_record_adts.pl12
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/kernel/src/inet_dns_record_adts.pl b/lib/kernel/src/inet_dns_record_adts.pl
index b1d8fab939..da50c7114f 100644
--- a/lib/kernel/src/inet_dns_record_adts.pl
+++ b/lib/kernel/src/inet_dns_record_adts.pl
@@ -2,7 +2,7 @@
#
# %CopyrightBegin%
#
-# Copyright Ericsson AB 2009. All Rights Reserved.
+# Copyright Ericsson AB 2009-2011. All Rights Reserved.
#
# The contents of this file are subject to the Erlang Public License,
# Version 1.1, (the "License"); you may not use this file except in
@@ -73,6 +73,10 @@ while( my ($Name, $r) = each(%Names)) {
# "@Values" = "V1,V2"...",VN"
my @D = @DATA;
foreach my $line (@D) {
+ # Ignore !name lines
+ if ($line =~ s/^\!(\S+)\s+//) {
+ next if $1 eq $Name;
+ }
my $m = 1;
# For leading * iterate $n times, otherwise once
$line =~ s/^\s*[*]// and $m = $n;
@@ -155,9 +159,9 @@ make_Name() -> \
make_Name(L) when is_list(L) -> \
make_Name(#Record{}, L).
-%% Generate #Record{} with one updated field
-%%
-*make_Name(Field, Value) -> \
+!dns_rr_opt %% Generate #Record{} with one updated field
+!dns_rr_opt %%
+!dns_rr_opt *make_Name(Field, Value) -> \
#Record{Field=Value};
%%
%% Update #Record{} from property list