perl-font-freetype/ft.patch

   1 --- FreeType.xs.orig    2007-10-24 18:08:39.000000000 +0200
   2 +++ FreeType.xs 2007-10-24 17:05:41.000000000 +0200
   3 @@ -805,7 +805,8 @@ qefft2_glyph_char_code (Font_FreeType_Gl
   4              char_code = FT_Get_First_Char(face, &glyph_idx);
   5              while (glyph_idx) {
   6                  if (glyph_idx == glyph->index) {
   7 -                    RETVAL = newSVuv((UV) glyph->char_code = char_code);
   8 +                    glyph->char_code = char_code;
   9 +                    RETVAL = newSVuv((UV) glyph->char_code);
  10                      break;
  11                  }
  12                  char_code = FT_Get_Next_Char(face, char_code, &glyph_idx);