X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=blobdiff_plain;f=txt2xls;h=6ac3a94e3b1978476f706dfd31d0add84d76ec39;hp=89580044f9d9670e76de4d8ffdcc60bf51abbb36;hb=fd3b47e616df71293bb6d3219697b15f2c86ca79;hpb=829ddbc623f19d45d5ea2c1f73b8081d4ca8ba13

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;