From 3e8bf6f86af4cbc9bc3e50e7bd545760274836be Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 2 Nov 2016 16:03:29 +0100
Subject: update Cairo fake package

---
 NEWS                   | 2 +-
 fake_packages/Cairo.pm | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 7ef22da..bb71eac 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,6 @@
 - fake packages:
   o make Gtk3::WebKit2 parsable by perl_checker
-  o restore Cairo
+  o restore & update Cairo
 
 Version 1.2.30 - 11 October 2016, by Thierry Vignaud
 
diff --git a/fake_packages/Cairo.pm b/fake_packages/Cairo.pm
index a080ec0..d07d50c 100644
--- a/fake_packages/Cairo.pm
+++ b/fake_packages/Cairo.pm
@@ -198,6 +198,7 @@ sub FETCHSIZE { my ($_path) = @_ }
 
 package Cairo::Path::Data;
 our @ISA = qw();
+sub DESTROY { my ($_sv) = @_ }
 sub EXISTS { my ($_sv, $_key) = @_ }
 sub FETCH { my ($_sv, $_key) = @_ }
 sub FIRSTKEY { my ($_sv) = @_ }
@@ -206,12 +207,14 @@ sub STORE { my ($_sv, $_key, $_value) = @_ }
 
 package Cairo::Path::Point;
 our @ISA = qw();
+sub DESTROY { my ($_sv) = @_ }
 sub FETCH { my ($_sv, $_index) = @_ }
 sub FETCHSIZE { my ($_sv) = @_ }
 sub STORE { my ($_sv, $_index, $_value) = @_ }
 
 package Cairo::Path::Points;
 our @ISA = qw();
+sub DESTROY { my ($_sv) = @_ }
 sub FETCH { my ($_sv, $_index) = @_ }
 sub FETCHSIZE { my ($_sv) = @_ }
 sub STORE { my ($_sv, $_index, $_value) = @_ }
-- 
cgit v1.2.1