From 7c0081794fb08d3ef00cfecf32feb6bfea566649 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sun, 12 May 2013 12:01:51 +0200
Subject: Fix reference Unicode char (not write it out)

---
 mkmd2mdwn-default | 5 +++--
 1 file 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', $_ );
 
-- 
cgit v1.2.3