diff options
| author | Raimo Niskanen <[email protected]> | 2011-05-31 18:43:17 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2011-05-31 18:43:17 +0200 |
| commit | f25432e45dc48c439f5d2d23581cd4c5fb6ba8e3 (patch) | |
| tree | 1aceb3ef5f0e6262975e0dc18ca7fd7e815c17e4 | |
| parent | f6a77186a608fb08e2ffc65d06c4166b7127e4a0 (diff) | |
| download | otp-f25432e45dc48c439f5d2d23581cd4c5fb6ba8e3.tar.gz otp-f25432e45dc48c439f5d2d23581cd4c5fb6ba8e3.tar.bz2 otp-f25432e45dc48c439f5d2d23581cd4c5fb6ba8e3.zip | |
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 |