charset: utf-8 byte function table

[sheet.git] / rfc1345convert

diff --git a/rfc1345convert b/rfc1345convert
index cae6d47b9014d2a67ecd32955a1f3fb15e868a14..f93275348360e0970948d38a731513efc64dea17 100755 (executable)
--- a/rfc1345convert
+++ b/rfc1345convert
@@ -117,6 +117,9 @@ if (-r 'shiar.inc.txt') {
 }
 warn $@ if $@;
 
 }
 warn $@ if $@;
 

+$di{chr $_} = $_ for 32 .. 126;
+$di{'\\'.$_} = delete $di{$_} for '{', '}', '\\';
+

 # optionally get unicode character information
 my %info = eval {
        require Unicode::UCD;
 # optionally get unicode character information
 my %info = eval {
        require Unicode::UCD;