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

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-10-28 14:54:25 -0700 (Wed, 28 Oct 2009)
New Revision: 221

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

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-10-27 05:22:54 UTC (rev 220)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-10-28 21:54:25 UTC (rev 221)
@@ -39,6 +39,8 @@
 
 #########################################################################
 
+use utf8;
+
 # Stores the script version and date
 $version = "1.7";
 $date = "2009-10-26";
@@ -185,6 +187,9 @@
     # Sets the initial value for the attribute "n" in cross-references.
     $nCR = @nCR [0];
 
+    #delete BOM, if present
+    @filedata[0] =~ s/^//;
+
     #encoding stuff
     for ($i = 0; $i < scalar(@filedata); $i++) {
 	$line = @filedata[$i];