From a8b3b04bf490c419c3be5d55fd26e092edccfb8f Mon Sep 17 00:00:00 2001 From: Marco d'Itri Date: Sun, 26 Aug 2001 16:46:23 +0200 Subject: Imported Debian version 4.5.8 --- make_tld_serv.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'make_tld_serv.pl') diff --git a/make_tld_serv.pl b/make_tld_serv.pl index d2735d6..0224084 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -11,7 +11,8 @@ while (<>) { (my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); $b =~ s/^W(?:EB)?\s+/\\001/; $b =~ s/^M(?:SG)?\s+/\\002/; - $b = "\\003" if ($b eq 'NONE'); + $b = "\\004" if $b eq 'CRSNIC'; + $b = "\\003" if $b eq 'NONE'; print " \"$a\",\t\"$b\",\n"; } -- cgit v1.2.3