perl-MIME-Fast-gmime.patch

   1 Index: MIME-Fast-1.6/Fast/Part.xs
   2 --- MIME-Fast-1.6/Fast/Part.xs.orig     2004-12-17 12:55:42 +0100
   3 +++ MIME-Fast-1.6/Fast/Part.xs  2007-02-09 08:15:50 +0100
   4 @@ -48,7 +48,6 @@
   5         XSINTERFACE_FUNC_MIMEFAST_PART_SET
   6      INTERFACE:
   7         set_content_description
   8 -       set_content_md5
   9         set_content_location
  10         set_content_disposition
  11         set_filename
  12 @@ -240,6 +239,9 @@
  13            g_mime_part_set_content_object(mime_part, mime_data_wrapper);
  14
  15            g_mime_stream_unref(mime_stream);
  16 +        } else if (SvPOKp(svval)) {
  17 +          data = (char *)SvPV(svval, len);
  18 +          g_mime_part_set_content(mime_part, data, len);
  19         } else if (svvaltype == SVt_PVMG) { // possible STDIN/STDOUT etc.
  20            int fd0 = (int)SvIV( svval );
  21           int fd;
  22 @@ -256,9 +258,6 @@
  23            g_mime_part_set_content_object(mime_part, mime_data_wrapper);
  24
  25            g_mime_stream_unref(mime_stream);
  26 -        } else if (SvPOK(svval)) {
  27 -          data = (char *)SvPV(svval, len);
  28 -          g_mime_part_set_content(mime_part, data, len);
  29          } else {
  30            croak("mime_set_content: Unknown type: %d", (int)svvaltype);
  31          }
  32 Index: MIME-Fast-1.6/gmime-stream-perlio.h
  33 --- MIME-Fast-1.6/gmime-stream-perlio.h.orig    2004-12-16 21:28:51 +0100
  34 +++ MIME-Fast-1.6/gmime-stream-perlio.h 2007-02-09 08:15:50 +0100
  35 @@ -36,11 +36,11 @@
  36  #include <gmime/gmime-stream.h>
  37
  38  #define GMIME_TYPE_STREAM_PERLIO            (g_mime_stream_perlio_get_type ())
  39 -#define GMIME_STREAM_PERLIO(obj)            (GMIME_CHECK_CAST ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIO))
  40 -#define GMIME_STREAM_PERLIO_CLASS(klass)    (GMIME_CHECK_CLASS_CAST ((klass), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass))
  41 -#define GMIME_IS_STREAM_PERLIO(obj)         (GMIME_CHECK_TYPE ((obj), GMIME_TYPE_STREAM_PERLIO))
  42 -#define GMIME_IS_STREAM_PERLIO_CLASS(klass) (GMIME_CHECK_CLASS_TYPE ((klass), GMIME_TYPE_STREAM_PERLIO))
  43 -#define GMIME_STREAM_PERLIO_GET_CLASS(obj)  (GMIME_CHECK_GET_CLASS ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass))
  44 +#define GMIME_STREAM_PERLIO(obj)            (G_TYPE_CHECK_INSTANCE_CAST ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIO))
  45 +#define GMIME_STREAM_PERLIO_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass))
  46 +#define GMIME_IS_STREAM_PERLIO(obj)         (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GMIME_TYPE_STREAM_PERLIO))
  47 +#define GMIME_IS_STREAM_PERLIO_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GMIME_TYPE_STREAM_PERLIO))
  48 +#define GMIME_STREAM_PERLIO_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), GMIME_TYPE_STREAM_PERLIO, GMimeStreamPerlIOClass))
  49
  50  typedef struct _GMimeStreamPerlIO GMimeStreamPerlIO;
  51  typedef struct _GMimeStreamPerlIOClass GMimeStreamPerlIOClass;
  52