X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/82c2fbd0e3157016f580c0ef823996ed26d8bb26..a0ba9298856b2426c5c66b6d2f2b284d98cee594:/rfc1345convert

diff --git a/rfc1345convert b/rfc1345convert
index f6f0ab8..f932753 100755
--- a/rfc1345convert
+++ b/rfc1345convert
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
+use open OUT => ':utf8', ':std';
 use Data::Dumper;
 
 our $VERSION = '1.01';
@@ -116,6 +117,9 @@ if (-r 'shiar.inc.txt') {
 }
 warn $@ if $@;
 
+$di{chr $_} = $_ for 32 .. 126;
+$di{'\\'.$_} = delete $di{$_} for '{', '}', '\\';
+
 # optionally get unicode character information
 my %info = eval {
 	require Unicode::UCD;