diff options
author | Chris Little <chrislit@crosswire.org> | 2012-02-26 01:56:29 +0000 |
---|---|---|
committer | Chris Little <chrislit@crosswire.org> | 2012-02-26 01:56:29 +0000 |
commit | c95605dc60d28f4078775d6e5d26d3a560962f31 (patch) | |
tree | 1d06af147a1af82172b96f472e8777a6bc3e0344 /modules/misc_cleanup | |
parent | e223763329865615af6d117ab550e6899848311e (diff) | |
download | sword-tools-c95605dc60d28f4078775d6e5d26d3a560962f31.tar.gz |
fixed output encoding handling to not double-encode UTF-8 (following suggestions at http://search.cpan.org/~shlomif/XML-LibXML-1.92/LibXML.pod#ENCODINGS_SUPPORT_IN_XML::LIBXML
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@352 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/misc_cleanup')
-rwxr-xr-x | modules/misc_cleanup/title_cleanup.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/misc_cleanup/title_cleanup.pl b/modules/misc_cleanup/title_cleanup.pl index 02fcd52..899368c 100755 --- a/modules/misc_cleanup/title_cleanup.pl +++ b/modules/misc_cleanup/title_cleanup.pl @@ -40,7 +40,7 @@ use XML::LibXML; use strict; -binmode (STDOUT,":utf8"); +binmode STDOUT; ## Obtain arguments if (scalar(@ARGV) < 1) { @@ -55,7 +55,8 @@ my $outputFilename; if (@ARGV[1] eq "-o") { $outputFilename = "@ARGV[2]"; - open (OUTF, , ">:utf8", "$outputFilename") or die "Could not open file @ARGV[2] for writing."; + open (OUTF, "$outputFilename") or die "Could not open file @ARGV[2] for writing."; + binmode OUTF; select(OUTF); } |