diff options
-rwxr-xr-x | mkmd2mdwn-default | 5 |
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', $_ ); |