Version, changes to 0.36

Changes

@@ -1,8 +1,9 @@
 Revision history for perl module Image::SVG::Path
 
-0.36 2021-04-27
+0.36 2021-05-01
 
 * Tests for arc flag parsing
+* Account for "useless" M commands (ZMZ)
 
 0.35 2021-04-26
 

lib/Image/SVG/Path.pm

@@ -23,7 +23,7 @@ our @FUNCTIONS = qw/extract_path_info reverse_path create_path_string/;
 our @EXPORT_OK = (@FUNCTIONS, @SVG_REGEX);
 our %EXPORT_TAGS = (all => \@FUNCTIONS, regex => \@SVG_REGEX);
 
-our $VERSION = '0.35';
+our $VERSION = '0.36';
 
 use Carp;
 

t/zmz.t

@@ -0,0 +1,31 @@
+use warnings;
+use strict;
+use utf8;
+use FindBin '$Bin';
+use Test::More;
+my $builder = Test::More->builder;
+binmode $builder->output, ":encoding(utf8)";
+binmode $builder->failure_output, ":encoding(utf8)";
+binmode $builder->todo_output, ":encoding(utf8)";
+binmode STDOUT, ":encoding(utf8)";
+binmode STDERR, ":encoding(utf8)";
+
+use Image::SVG::Path 'extract_path_info';
+
+# This is from
+# https://github.com/edent/SuperTinyIcons/blob/master/images/svg/mailchimp.svg
+# as of commit fd79fb48365ee14ace58e8aed5bad046e5b8136c.
+
+# For what it's worth, the MIT licence applies, see
+# https://github.com/edent/SuperTinyIcons/blob/master/LICENSE.
+
+my $d = 'M418 306l-6-17s25-38-37-51c0 0 4-47-18-69 48-47 37-118-72-72C229-10 13 241 103 281c-9 12-9 72 53 78 42 90 144 96 203 69s93-113 59-122zm-263 40c-51-5-56-75-12-82s55 86 12 82zm-15-95c-14 0-31 19-31 19-68-33 123-252 164-167 0 0-100 48-133 148zm200 85c0-4-21 6-59-7 3-21 48 18 123-33l6 21c28-5 0 90-90 89-73-1-96-76-56-117 8-8-29-24-22-59 3-15 16-37 49-31s40-24 62-13 9 53 12 59 35 7 41 24-41 54-114 44c-17-2-27 20-16 34 22 32 112 11 127-20-38 29-116 40-122 9 22 10 59 4 59 0zm-58-6zm-73-152';#c22-27 51-43 51-43l-6 15s21-16 44-16l-8 8c26 1 37 11 37 11s-61-18-118 25zm135 39c13-1 9 29 9 29h-8s-14-28-1-29zm-59 33c-9 1-19 6-18 2 4-16 41-12 40 2s-9-6-22-4zm21 12c1 2-7 0-13 1s-12 4-12 2 23-11 25-3zm20 3c3-6 15 0 12 6s-15 0-12-6zm25 2c-6 0-6-13 0-13s6 14 0 14zm-180 53c3 3-6 9-13 4s8-29-10-35-13 17-18 14 7-35 28-22-6 33 6 39 5-2 7 0z';
+my @i = extract_path_info (
+    $d,
+    {
+	absolute => 1,
+    },
+);
+my $end = $i[-1];
+is_deeply ($end->{point}, [209, 178], "Correct shift of end after useless move in zmz");
+done_testing ();