From 77049c1b5d5e75bf576b12ff265632571a5a08ad Mon Sep 17 00:00:00 2001 From: Marco d'Itri Date: Sun, 16 Mar 2003 15:30:18 +0100 Subject: Imported Debian version 4.6.3 --- 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 0224084..dfe51c8 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -11,8 +11,9 @@ 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 = "\\004" if $b eq 'CRSNIC'; $b = "\\003" if $b eq 'NONE'; + $b = "\\004" if $b eq 'CRSNIC'; + $b = "\\007" if $b eq 'PIR'; print " \"$a\",\t\"$b\",\n"; } -- cgit v1.2.3