diff options
author | Chris Little <chrislit@crosswire.org> | 2009-10-28 21:54:25 +0000 |
---|---|---|
committer | Chris Little <chrislit@crosswire.org> | 2009-10-28 21:54:25 +0000 |
commit | 2a580edabc865b9f5b0791d8d93639557445eb3e (patch) | |
tree | 11bf005bb31842316c7862130be53d214a013bd3 /modules/perlconverters/usfm2osis.pl | |
parent | 77cc879e18a646850317f248700c80fa9c7e5760 (diff) | |
download | sword-tools-2a580edabc865b9f5b0791d8d93639557445eb3e.tar.gz |
delete leading BOM
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@221 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters/usfm2osis.pl')
-rw-r--r-- | modules/perlconverters/usfm2osis.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index af8fc04..0f53582 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -39,6 +39,8 @@ ######################################################################### +use utf8; + # Stores the script version and date $version = "1.7"; $date = "2009-10-26"; @@ -185,6 +187,9 @@ foreach $file (@files) { # 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]; |