[sword-svn] r429 - trunk/versification

[chrislit at crosswire.org]

Author: chrislit
Date: 2013-07-20 05:22:28 -0700 (Sat, 20 Jul 2013)
New Revision: 429

Modified:
   trunk/versification/v11nsys.pl
Log:
print verse counts 10-per-line for readability

Modified: trunk/versification/v11nsys.pl
===================================================================
--- trunk/versification/v11nsys.pl	2013-07-13 04:13:25 UTC (rev 428)
+++ trunk/versification/v11nsys.pl	2013-07-20 12:22:28 UTC (rev 429)
@@ -314,6 +314,8 @@
 	$vm .= "$thisVers";
     }
     $vm .= "\n};\n";
+    $vm =~ s/((\d+, ){10})(?=\d+,)/\1\n  /g;
+
     if ($warn == 1) {
 	if ($vCount ne $thisVers) {
 	    print "WARNING: verse count ($vCount) does not equal last verse ($thisVers) in chapter $osis{lc($lastBook)} $lastChap of versification $v11n ($infile).\n";