make_tld_serv.pl: fix hex escape sequences

C hexadecimal escape sequences are actually defined as \x followed by
*any* number of hexadecimal digits.
This commit is contained in:
Marco d'Itri 2013-12-26 09:07:41 +01:00
parent 332de6ebc2
commit 9eeb9c7159

View File

@ -13,7 +13,7 @@ while (<>) {
(my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/);
$b =~ s/^W(?:EB)?\s+/\\x01/;
$b =~ s/^VERISIGN\s+/\\x04/;
$b =~ s/^VERISIGN\s+/\\x04" "/;
$b = "\\x03" if $b eq 'NONE';
$b = "\\x08" if $b eq 'AFILIAS';
$b = "\\x0C" if $b eq 'ARPA';