git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
charset: crop shared character ranges
[sheet.git]
/
rfc1345convert
diff --git
a/rfc1345convert
b/rfc1345convert
index f6f0ab8a2f88a5230fa2e6f2ee127143a3423ec3..f93275348360e0970948d38a731513efc64dea17 100755
(executable)
--- a/
rfc1345convert
+++ b/
rfc1345convert
@@
-3,6
+3,7
@@
use strict;
use warnings;
use strict;
use warnings;
+use open OUT => ':utf8', ':std';
use Data::Dumper;
our $VERSION = '1.01';
use Data::Dumper;
our $VERSION = '1.01';
@@
-116,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;