diff options
| author | Marco d'Itri <md@linux.it> | 2013-12-26 09:07:41 +0100 |
|---|---|---|
| committer | Marco d'Itri <md@linux.it> | 2013-12-26 09:57:16 +0100 |
| commit | 9eeb9c7159107f66e0ffd9a850344566c0d8976d (patch) | |
| tree | 99bc4dce3124fda17f6524d817aed3cffddf0e8a | |
| parent | 332de6ebc2ffd0c30bcfeca32f8fe793bc7a0a25 (diff) | |
| download | whois-9eeb9c7159107f66e0ffd9a850344566c0d8976d.tar.gz | |
make_tld_serv.pl: fix hex escape sequences
C hexadecimal escape sequences are actually defined as \x followed by
*any* number of hexadecimal digits.
| -rwxr-xr-x | make_tld_serv.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/make_tld_serv.pl b/make_tld_serv.pl index 1d4b72f..60d557c 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -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'; |