diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2019-12-06 13:10:00 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2019-12-06 13:10:00 +0300 |
| commit | 8c13fdabc9833ead8afb57f6c4b476fb7a1ab9e6 (patch) | |
| tree | 6acdbdadfef2a251bb95ef0aed0f673f0f2bbfa9 /make_servers_charset.pl | |
| parent | 45eb26992d9fa4efd74b7b283834dcfc212a403f (diff) | |
| parent | abf1f11b61b525aa6b95673e50d4be90505b1d67 (diff) | |
| download | whois-master.tar.gz | |
Diffstat (limited to 'make_servers_charset.pl')
| -rwxr-xr-x | make_servers_charset.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/make_servers_charset.pl b/make_servers_charset.pl index 8517b75..2f83a09 100755 --- a/make_servers_charset.pl +++ b/make_servers_charset.pl @@ -9,13 +9,13 @@ while (<>) { s/^\s+//; s/\s+$//; next if /^$/; - die "format error: $_" unless + die "format error: $_" if not (my ($a, $b, $c) = /^([a-z0-9.-]+)\s+([a-z0-9-]+)(?:\s+(.+))?$/); if ($c) { - print qq( { "$a",\t"$b",\t"$c" },\n); + print qq| { "$a",\t"$b",\t"$c" },\n|; } else { - print qq( { "$a",\t"$b",\tNULL },\n); + print qq| { "$a",\t"$b",\tNULL },\n|; } } |