aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/src
diff options
context:
space:
mode:
authorRaimo Niskanen <[email protected]>2011-05-31 18:43:17 +0200
committerRaimo Niskanen <[email protected]>2011-05-31 18:43:17 +0200
commitf25432e45dc48c439f5d2d23581cd4c5fb6ba8e3 (patch)
tree1aceb3ef5f0e6262975e0dc18ca7fd7e815c17e4 /lib/kernel/src
parentf6a77186a608fb08e2ffc65d06c4166b7127e4a0 (diff)
downloadotp-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
Diffstat (limited to 'lib/kernel/src')
-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