X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/77f6393c7675e2db18438c9f7c4075552ba278b6..140051e24ff5a74421e8b437cdc12ca8570995cd:/writing-latn.inc.pl diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl index da917a2..a2dd4b4 100644 --- a/writing-latn.inc.pl +++ b/writing-latn.inc.pl @@ -242,8 +242,9 @@ unistrokes => { list => [ map { ''.$_.'' } map { - sprintf('', m/\AM(\d+),(\d+)(.?)/) . # start point - (!!$3 && qq()) + my ($x, $y, $next) = m/\AM(\d+),(\d+)(.)?/; + sprintf('', $x, $y) . # start point + (defined $next && qq()) } 'M3,8 V0', 'M0,0 6,4 0,8',