File Tk-804.028-refcnt.diff of Package perl-Tk

--- pTk/mTk/unix/tkUnixXft.c
+++ pTk/mTk/unix/tkUnixXft.c
@@ -215,6 +215,7 @@
     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)
 	    fontPtr->faces[i].charset = FcCharSetCopy (charset);