[sword-svn] r222 - trunk/modules/perlconverters

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-10-28 16:25:23 -0700 (Wed, 28 Oct 2009)
New Revision: 222

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
delete leading BOM (corrected)

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-10-28 21:54:25 UTC (rev 221)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-10-28 23:25:23 UTC (rev 222)
@@ -188,13 +188,13 @@
     $nCR = @nCR [0];
 
     #delete BOM, if present
-    @filedata[0] =~ s/^//;
+    @filedata[1] =~ s/^//;
 
     #encoding stuff
     for ($i = 0; $i < scalar(@filedata); $i++) {
 	$line = @filedata[$i];
 	$line =~ s/[\r\n]//g;
-	
+
 	### Trim leading/trailing whitespace
 	$line =~ s/\s*$//;
 	$line =~ s/^\s*//;