From 13bce6f4ce992fd083a8181d1940ee59ba3dba71 Mon Sep 17 00:00:00 2001 From: Marco d'Itri Date: Wed, 23 Apr 2014 05:46:24 +0200 Subject: Make the small perl programs uniform in style --- make_servers_charset.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'make_servers_charset.pl') 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|; } } -- cgit v1.2.3