File perl-Cairo.diff of Package perl-Cairo

--- ./t/CairoPath.t.orig	2012-06-06 16:30:07.000000000 +0000
+++ ./t/CairoPath.t	2012-06-06 16:30:32.000000000 +0000
@@ -30,8 +30,11 @@ my $expected_path = [
   { type => "line-to", points => [[3, 4]] },
   { type => "curve-to", points => [[5, 6], [7, 8], [9, 10]] },
   { type => "close-path", points => [] },
-  { type => "move-to", points => [[1, 2]] }
 ];
+# since cairo-1.12 close_path() lazily adds a move-to element
+if (Cairo::VERSION() < Cairo::VERSION_ENCODE(1, 12, 0)) {
+  push @$expected_path, { type => "move-to", points => [[1, 2]] };
+}
 
 my $path = $cr->copy_path;
 is_deeply ($path, $expected_path);