Hello community,
here is the log from the commit of package perl-Font-FreeType for
openSUSE:Factory checked in at 2015-10-12 10:01:39
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Font-FreeType (Old)
and /work/SRC/openSUSE:Factory/.perl-Font-FreeType.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Font-FreeType"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Font-FreeType/perl-Font-FreeType.changes
2015-07-20 11:22:45.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Font-FreeType.new/perl-Font-FreeType.changes
2015-10-12 10:01:42.000000000 +0200
@@ -1,0 +2,15 @@
+Mon Sep 28 08:43:50 UTC 2015 - [email protected]
+
+- updated to 0.07
+ see /usr/share/doc/packages/perl-Font-FreeType/Changes
+
+ 0.07 2015-09-27 [email protected]
+ - No changes since 0.07_2
+
+ 0.07_2 2015-09-24 [email protected]
+ - Try to support utf8_to_uvchr_buf for older perls
+
+ 0.07_1 2015-09-24 [email protected]
+ - Fix UTF-8 string usage on non-intel architectures (GH#17)
+
+-------------------------------------------------------------------
Old:
----
Font-FreeType-0.06.tar.gz
New:
----
Font-FreeType-0.07.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Font-FreeType.spec ++++++
--- /var/tmp/diff_new_pack.mXcbYo/_old 2015-10-12 10:01:43.000000000 +0200
+++ /var/tmp/diff_new_pack.mXcbYo/_new 2015-10-12 10:01:43.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Font-FreeType
-Version: 0.06
+Version: 0.07
Release: 0
%define cpan_name Font-FreeType
Summary: Read Font Files and Render Glyphs From Perl Using Freetype2
++++++ Font-FreeType-0.06.tar.gz -> Font-FreeType-0.07.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Font-FreeType-0.06/Changes
new/Font-FreeType-0.07/Changes
--- old/Font-FreeType-0.06/Changes 2015-07-17 14:03:28.000000000 +0200
+++ new/Font-FreeType-0.07/Changes 2015-09-27 13:56:20.000000000 +0200
@@ -1,3 +1,12 @@
+0.07 2015-09-27 [email protected]
+ - No changes since 0.07_2
+
+0.07_2 2015-09-24 [email protected]
+ - Try to support utf8_to_uvchr_buf for older perls
+
+0.07_1 2015-09-24 [email protected]
+ - Fix UTF-8 string usage on non-intel architectures (GH#17)
+
0.06 2015-01-27 [email protected]
- No changes since 0.06_1
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Font-FreeType-0.06/FreeType.xs
new/Font-FreeType-0.07/FreeType.xs
--- old/Font-FreeType-0.06/FreeType.xs 2015-07-13 19:36:00.000000000 +0200
+++ new/Font-FreeType-0.07/FreeType.xs 2015-09-27 13:56:20.000000000 +0200
@@ -27,6 +27,15 @@
#undef assert
#include <assert.h>
+/* utf8_to_uvchr is deprecated in 5.16, but
+ * utf8_to_uvchr_buf is not available before 5.16
+ * If I need to get fancier, I should look at Dumper.xs
+ * in Data::Dumper
+ */
+#if PERL_VERSION <= 15 && ! defined(utf8_to_uvchr_buf)
+#define utf8_to_uvchr_buf(s, send, p_length) (utf8_to_uvchr(s, p_length))
+#endif
+
/* Macro for testing whether we have at least a certain version of
* Freetype available. */
#define QEFFT2_FT_AT_LEAST(major, minor, patch) \
@@ -795,16 +804,24 @@
qefft2_face_glyph_from_char (Font_FreeType_Face face, SV *sv, int fallback = 0)
PREINIT:
FT_UInt glyph_idx;
- const char *str;
+ const U8 *str;
STRLEN len;
- unsigned long char_code;
+ UV char_code;
CODE:
if (!SvPOK(sv))
croak("argument must be a string containing a character");
- str = SvPV(sv, len);
+ str = (const U8*)SvPV(sv, len);
if (!len)
croak("string has no characters");
- char_code = *str;
+ if (!UTF8_IS_INVARIANT(*str)) {
+ STRLEN s_len;
+ char_code = utf8_to_uvchr_buf(str, str + len, &s_len);
+ if (len != s_len) {
+ croak("malformed string (looks as UTF-8, but isn't it)");
+ }
+ } else {
+ char_code = *str;
+ }
glyph_idx = FT_Get_Char_Index(face, char_code);
fallback = SvOK(ST(2)) ? SvIV(ST(2)) : 0;
if (glyph_idx || fallback)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Font-FreeType-0.06/META.json
new/Font-FreeType-0.07/META.json
--- old/Font-FreeType-0.06/META.json 2015-07-17 14:04:41.000000000 +0200
+++ new/Font-FreeType-0.07/META.json 2015-09-27 13:59:14.000000000 +0200
@@ -45,5 +45,5 @@
"url" : "https://github.com/zmughal/p5-Font-FreeType";
}
},
- "version" : "0.06"
+ "version" : "0.07"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Font-FreeType-0.06/META.yml
new/Font-FreeType-0.07/META.yml
--- old/Font-FreeType-0.06/META.yml 2015-07-17 14:04:41.000000000 +0200
+++ new/Font-FreeType-0.07/META.yml 2015-09-27 13:59:14.000000000 +0200
@@ -24,4 +24,4 @@
perl: '5.008001'
resources:
repository: https://github.com/zmughal/p5-Font-FreeType
-version: '0.06'
+version: '0.07'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Font-FreeType-0.06/lib/Font/FreeType.pm
new/Font-FreeType-0.07/lib/Font/FreeType.pm
--- old/Font-FreeType-0.06/lib/Font/FreeType.pm 2015-07-17 14:02:14.000000000
+0200
+++ new/Font-FreeType-0.07/lib/Font/FreeType.pm 2015-09-27 13:56:20.000000000
+0200
@@ -2,7 +2,7 @@
use warnings;
use strict;
-our $VERSION = '0.06';
+our $VERSION = '0.07';
require DynaLoader;
our @ISA = qw( DynaLoader );
