File Tk-804.029-refcnt.diff of Package perl-Tk.11482

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) {