Ungroup to make future tlds.h patches smaller

[claws.git] / tools / claws.get.tlds.pl

diff --git a/tools/claws.get.tlds.pl b/tools/claws.get.tlds.pl
index 0ae3990f625185541d885565a20cb6b4950a594e..bea3245feefab8a6ab742cb73af3f61c06df132e 100755 (executable)
--- a/tools/claws.get.tlds.pl
+++ b/tools/claws.get.tlds.pl
@@ -60,9 +60,8 @@ foreach (@lines) {
   next if (/^XN--.*$/); # IDNs not supported yet, see bug #1670
   my $tld = lc $_; # list comes in upper case
   print "\"$tld\""; ++$j;
-  print "," unless $i >= scalar @lines;
-  print "" . ($j % 5 == 0 or $i >= scalar @lines)? "\n": " ";
-  print "\t" if ($j % 5 == 0 and $i < scalar @lines);
+  print ",\n\t" unless $i >= scalar @lines;
+  print "\n" if $i >= scalar @lines;
 }
 
 print "};\n\n"; # close array