From f25432e45dc48c439f5d2d23581cd4c5fb6ba8e3 Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Tue, 31 May 2011 18:43:17 +0200
Subject: Stop generating some unused clauses for make_dns_rr_opt/1 local to
 inet_dns

---
 lib/kernel/src/inet_dns_record_adts.pl | 12 ++++++++----
 1 file 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
-- 
cgit v1.2.3