X-Git-Url: http://git.claws-mail.org/?p=claws.git;a=blobdiff_plain;f=tools%2Fclaws.get.tlds.pl;h=bea3245feefab8a6ab742cb73af3f61c06df132e;hp=0ae3990f625185541d885565a20cb6b4950a594e;hb=5fb879d20a048217c578c981233a7cbb702cf60a;hpb=8f65fc9f8be8d30ba67d8f4a64256e8645aa0dc1;ds=sidebyside

diff --git a/tools/claws.get.tlds.pl b/tools/claws.get.tlds.pl
index 0ae3990f6..bea3245fe 100755
--- 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