3 Commits

4 changed files with 37 additions and 1 deletions

12
README.md Normal file
View File

@@ -0,0 +1,12 @@
## Build Results
Current state of perl in openSUSE:Factory is
![Factory build results](https://br.opensuse.org/status/openSUSE:Factory/perl-Cairo/standard)
The current state of perl in the devel project build (devel:languages:perl)
![Devel project build results](https://br.opensuse.org/status/devel:languages:perl/perl-Cairo)

View File

@@ -1,3 +1,9 @@
-------------------------------------------------------------------
Fri Oct 4 15:14:47 CEST 2024 - mls@suse.de
- Fix type of length in cairo_surface_set_mime_data
* new patch: set_mime_data_length.diff
-------------------------------------------------------------------
Thu Jan 21 03:06:12 UTC 2021 - Tina Müller <timueller+perl@suse.de>

View File

@@ -1,7 +1,7 @@
#
# spec file for package perl-Cairo
#
# Copyright (c) 2021 SUSE LLC
# Copyright (c) 2024 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -26,6 +26,8 @@ License: LGPL-2.1-or-later
URL: https://metacpan.org/release/%{cpan_name}
Source0: https://cpan.metacpan.org/authors/id/X/XA/XAOC/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
Source100: README.md
Patch0: set_mime_data_length.diff
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(ExtUtils::Depends) >= 0.2

16
set_mime_data_length.diff Normal file
View File

@@ -0,0 +1,16 @@
--- CairoSurface.xs.orig 2024-10-04 13:12:20.636290906 +0000
+++ CairoSurface.xs 2024-10-04 13:12:53.600240731 +0000
@@ -389,11 +389,11 @@ cairo_status_t
cairo_surface_set_mime_data (cairo_surface_t *surface, const char *mime_type, SV *data);
PREINIT:
const unsigned char *mime_data;
- unsigned long length;
+ STRLEN length;
CODE:
SvREFCNT_inc (data);
mime_data = (const unsigned char *) SvPV(data, length);
- RETVAL = cairo_surface_set_mime_data (surface, mime_type, mime_data, length, data_destroy, data);
+ RETVAL = cairo_surface_set_mime_data (surface, mime_type, mime_data, (unsigned long)length, data_destroy, data);
OUTPUT:
RETVAL