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',