Index: MIME-Fast-1.6/Fast/Part.xs --- MIME-Fast-1.6/Fast/Part.xs.orig 2004-12-17 12:55:42.000000000 +0100 +++ MIME-Fast-1.6/Fast/Part.xs 2011-12-24 10:15:09.000000000 +0100 @@ -48,7 +48,6 @@ XSINTERFACE_FUNC_MIMEFAST_PART_SET INTERFACE: set_content_description - set_content_md5 set_content_location set_content_disposition set_filename @@ -240,6 +239,9 @@ g_mime_part_set_content_object(mime_part, mime_data_wrapper); g_mime_stream_unref(mime_stream); + } else if (SvPOKp(svval)) { + data = (char *)SvPV(svval, len); + g_mime_part_set_content(mime_part, data, len); } else if (svvaltype == SVt_PVMG) { // possible STDIN/STDOUT etc. int fd0 = (int)SvIV( svval ); int fd; @@ -256,9 +258,6 @@ g_mime_part_set_content_object(mime_part, mime_data_wrapper); g_mime_stream_unref(mime_stream); - } else if (SvPOK(svval)) { - data = (char *)SvPV(svval, len); - g_mime_part_set_content(mime_part, data, len); } else { croak("mime_set_content: Unknown type: %d", (int)svvaltype); } Index: MIME-Fast-1.6/gmime-stream-perlio.h --- MIME-Fast-1.6/gmime-stream-perlio.h.orig 2004-12-16 21:28:51.000000000 +0100 +++ MIME-Fast-1.6/gmime-stream-perlio.h 2011-12-24 10:15:09.000000000 +0100 @@ -36,11 +36,11 @@ #include #define GMIME_TYPE_STREAM_PERLIO (g_mime_stream_perlio_get_type ()) -#define GMIME_STREAM_PERLIO(obj) (GMIME_CHECK_CAST ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIO)) -#define GMIME_STREAM_PERLIO_CLASS(klass) (GMIME_CHECK_CLASS_CAST ((klass), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass)) -#define GMIME_IS_STREAM_PERLIO(obj) (GMIME_CHECK_TYPE ((obj), GMIME_TYPE_STREAM_PERLIO)) -#define GMIME_IS_STREAM_PERLIO_CLASS(klass) (GMIME_CHECK_CLASS_TYPE ((klass), GMIME_TYPE_STREAM_PERLIO)) -#define GMIME_STREAM_PERLIO_GET_CLASS(obj) (GMIME_CHECK_GET_CLASS ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass)) +#define GMIME_STREAM_PERLIO(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIO)) +#define GMIME_STREAM_PERLIO_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass)) +#define GMIME_IS_STREAM_PERLIO(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GMIME_TYPE_STREAM_PERLIO)) +#define GMIME_IS_STREAM_PERLIO_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GMIME_TYPE_STREAM_PERLIO)) +#define GMIME_STREAM_PERLIO_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass)) typedef struct _GMimeStreamPerlIO GMimeStreamPerlIO; typedef struct _GMimeStreamPerlIOClass GMimeStreamPerlIOClass; Index: zentimer.h --- zentimer.h.orig 2011-04-23 17:57:00.000000000 +0200 +++ zentimer.h 2011-12-24 10:15:09.000000000 +0100 @@ -39,6 +39,8 @@ #include #elif HAVE_INTTYPES_H #include +#elif !defined(__linux__) +#include #else typedef unsigned char uint8_t; typedef unsigned long int uint32_t;