mirror of
https://github.com/rfc1036/whois.git
synced 2026-01-03 06:15:17 +00:00
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:
parent
332de6ebc2
commit
9eeb9c7159
@ -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';
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user