summaryrefslogtreecommitdiff
path: root/mkmd2mdwn-default
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2013-05-12 12:01:51 +0200
committerJonas Smedegaard <dr@jones.dk>2013-05-12 12:01:51 +0200
commit7c0081794fb08d3ef00cfecf32feb6bfea566649 (patch)
treebb9619c2f339e04e20031638592b217c0a231299 /mkmd2mdwn-default
parent27d338dec0428bc22e2838eb8641c6e0d1681e22 (diff)
Fix reference Unicode char (not write it out)
Diffstat (limited to 'mkmd2mdwn-default')
-rwxr-xr-xmkmd2mdwn-default5
1 files changed, 3 insertions, 2 deletions
diff --git a/mkmd2mdwn-default b/mkmd2mdwn-default
index 588b61e..7e9fd9c 100755
--- a/mkmd2mdwn-default
+++ b/mkmd2mdwn-default
@@ -8,6 +8,7 @@ use Lingua::Sentence;
use strict;
use warnings;
+use charnames ':full';
# setup sentence splitter
my $splitter = Lingua::Sentence->new("en");
@@ -27,8 +28,8 @@ $_ = $splitter->split($_);
# split after comma, and before and after ellipsis
#s/,\s(?=[^\v=]*\v)/,\n/mg;
-s/\h+(\(…\))/\n$1/mg;
-s/(\(…\))\h+/$1\n/mg;
+s/\h+(\(\N{HORIZONTAL ELLIPSIS}\))/\n$1/mg;
+s/(\(\N{HORIZONTAL ELLIPSIS}\))\h+/$1\n/mg;
write_file( $stem . '.mdwn', $_ );