perl-Tk/Tk-804.029-refcnt.diff

13 lines
438 B
Diff

Index: pTk/mTk/unix/tkUnixXft.c
===================================================================
--- pTk/mTk/unix/tkUnixXft.c.orig
+++ pTk/mTk/unix/tkUnixXft.c
@@ -165,6 +165,7 @@ InitFont(
for (i = 0; i < set->nfont; i++) {
fontPtr->faces[i].ftFont = 0;
+ FcPatternReference (set->fonts[i]);
fontPtr->faces[i].source = set->fonts[i];
if (FcPatternGetCharSet(set->fonts[i], FC_CHARSET, 0,
&charset) == FcResultMatch) {