diff options
| author | Chris Little <chrislit@crosswire.org> | 2009-10-28 23:25:23 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2009-10-28 23:25:23 +0000 |
| commit | 30e335dac6c092ba9cf87141f9639d9cbf23f02a (patch) | |
| tree | c53d5efd8b9a50d7c578f8d3ea007eeda5efc00e | |
| parent | 2a580edabc865b9f5b0791d8d93639557445eb3e (diff) | |
| download | sword-tools-30e335dac6c092ba9cf87141f9639d9cbf23f02a.tar.gz | |
delete leading BOM (corrected)
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@222 07627401-56e2-0310-80f4-f8cd0041bdcd
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 4 |
1 files 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*//; |