From 30e335dac6c092ba9cf87141f9639d9cbf23f02a Mon Sep 17 00:00:00 2001
From: Chris Little <chrislit@crosswire.org>
Date: Wed, 28 Oct 2009 23:25:23 +0000
Subject: delete leading BOM (corrected)

git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@222 07627401-56e2-0310-80f4-f8cd0041bdcd
---
 modules/perlconverters/usfm2osis.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl
index 0f53582..db9e444 100644
--- a/modules/perlconverters/usfm2osis.pl
+++ b/modules/perlconverters/usfm2osis.pl
@@ -188,13 +188,13 @@ foreach $file (@files) {
     $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*//;
-- 
cgit