[sword-svn] r504 - trunk/modules/conf

[refdoc at crosswire.org]

Author: refdoc
Date: 2015-12-24 17:43:22 -0700 (Thu, 24 Dec 2015)
New Revision: 504

Modified:
   trunk/modules/conf/confmaker.pl
Log:
input utf8 correction


Modified: trunk/modules/conf/confmaker.pl
===================================================================
--- trunk/modules/conf/confmaker.pl	2015-09-04 01:46:46 UTC (rev 503)
+++ trunk/modules/conf/confmaker.pl	2015-12-25 00:43:22 UTC (rev 504)
@@ -65,14 +65,15 @@
 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 = <INF>;
        }
 
 if (@ARGV[$nextarg] eq "-m") {