perl-Font-FreeType-gcc4.patch

   1 diff -urN Font-FreeType-0.03.org/FreeType.xs Font-FreeType-0.03/FreeType.xs
   2 --- Font-FreeType-0.03.org/FreeType.xs  2004-09-11 22:50:44.000000000 +0200
   3 +++ Font-FreeType-0.03/FreeType.xs      2007-06-10 00:44:09.873808974 +0200
   4 @@ -805,7 +805,7 @@
   5              char_code = FT_Get_First_Char(face, &glyph_idx);
   6              while (glyph_idx) {
   7                  if (glyph_idx == glyph->index) {
   8 -                    RETVAL = newSVuv((UV) glyph->char_code = char_code);
   9 +                    RETVAL = newSVuv(glyph->char_code = char_code);
  10                      break;
  11                  }
  12                  char_code = FT_Get_Next_Char(face, char_code, &glyph_idx);