From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 15 Jul 2016 02:56:28 +0000 (-0500)
Subject: open files using utf8
X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=commitdiff_plain;h=fd3b47e616df71293bb6d3219697b15f2c86ca79

open files using utf8
---

diff --git a/txt2xls b/txt2xls
index 8958004..6ac3a94 100755
--- a/txt2xls
+++ b/txt2xls
@@ -147,7 +147,7 @@ for my $file (@ARGV) {
 	$file = "STDIN";
     }
     else {
-	$fh = IO::File->new($file,'r') or
+	open($fh,'<:encoding(utf8)',$file) or
 	    die "Unable to open $file for reading: $!";
     }
     my $ws_name = $file;