aboutsummaryrefslogtreecommitdiff
path: root/emojitrans2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-xemojitrans2.pl12
1 files changed, 7 insertions, 5 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl
index 34c8204..4ec9337 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -15,6 +15,8 @@ BEGIN { binmode(STDOUT, ":utf8");
'/' => 'slash',
'#' => 'numbersign',
'@' => 'at',
+ '|' => 'bar',
+ '~' => 'asciitilde',
' ' => 'space',
);
@@ -38,9 +40,9 @@ sub splitup {
unless (/^#/) {
my $hold=$_;
s/<MM>/<Multi_key> <Multi_key>/;
- s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e;
- if (length($1) > 7) {
- $_=$hold;
- s/^<MM>/### <MM>/;
- }
+ s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e;
+ if (length($1) > 7) {
+ $_=$hold;
+ s/^<MM>/### <MM>/;
+ }
}