diff options
| author | Raimo Niskanen <[email protected]> | 2011-06-01 12:32:00 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2011-06-01 12:32:00 +0200 |
| commit | 9507f8ed8c5d67c4c239f9e1143156402e1bfe91 (patch) | |
| tree | 16de53e5f5d2b258814c431e5f5acef5bfb3aa5c | |
| parent | 14edda24cbd8152d7039019252245494a141c772 (diff) | |
| parent | f25432e45dc48c439f5d2d23581cd4c5fb6ba8e3 (diff) | |
| download | otp-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.pl | 12 |
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 |