From 13d9e40b1c1240e1196e7b44977d7ae13a30c8e1 Mon Sep 17 00:00:00 2001 From: Peter von Kaehne Date: Fri, 25 Dec 2015 00:43:22 +0000 Subject: input utf8 correction git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@504 07627401-56e2-0310-80f4-f8cd0041bdcd --- modules/conf/confmaker.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/modules/conf/confmaker.pl b/modules/conf/confmaker.pl index 6367ec5..1bb14d5 100755 --- a/modules/conf/confmaker.pl +++ b/modules/conf/confmaker.pl @@ -65,14 +65,15 @@ $nextarg = 1; if (@ARGV[$nextarg] eq "-o") { $outputFileName = "@ARGV[$nextarg+1]"; $nextarg += 2; - open (OUTF, , ">:utf8", "$outputFileName") or die "Could not open file $outputFileName for writing."; + open (OUTF, ">:utf8", "$outputFileName") or die "Could not open file $outputFileName for writing."; select(OUTF) } if (@ARGV[$nextarg] eq "-i") { $inputFileName = "@ARGV[$nextarg+1]"; $nextarg += 2; - @inputFile=`cat $inputFileName`; + open INF, "<:utf8","$inputFileName" ; + @inputfile = ; } if (@ARGV[$nextarg] eq "-m") { -- cgit