From 01afbc332316005a1cf7393fcdde3042be4316eb Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Mon, 13 Nov 2017 09:11:19 -0500 Subject: Config file is utf8. --- xmpt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/xmpt b/xmpt index 2fe643e..337e00e 100755 --- a/xmpt +++ b/xmpt @@ -61,6 +61,7 @@ sub read_conf { my $fh = new IO::File("<$filen") || die "Couldn't open $filen for reading: $!\n"; + binmode($fh, ':utf8'); map { chomp; s/\#.*$//; @@ -147,6 +148,7 @@ sub thunk { ['thunk', sub { package evalpkg; + use utf8; local $evalpkg::arg = shift; my $rc = eval $b; $@ && -- cgit v1.2.3