diff options
| author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-03-03 13:44:50 +0300 |
|---|---|---|
| committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-03-03 13:44:50 +0300 |
| commit | 3ff032cf72164dc9aa8575c0a631f7c7b0079f46 (patch) | |
| tree | 98a7b11bf70232a6c0825591957352f2d4acc9b9 /perl | |
| parent | f972cde13ca98f6ed992a288826467abf04c888a (diff) | |
| download | rspamd-3ff032cf72164dc9aa8575c0a631f7c7b0079f46.tar.gz rspamd-3ff032cf72164dc9aa8575c0a631f7c7b0079f46.zip | |
* New rspamd protocol (changed replies)
* Add ability to attach string lists to symbols
* Check destructors and do not add identical destructors (argument and function) to pool's destructors
* Remove 2 warnings when building with gmime22
* Attach url names to surbl symbols
* Fix bug with blocking on read (I think it is linux specific thought)
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Rspamd/Message.xs | 2 | ||||
| -rw-r--r-- | perl/Rspamd/Object.xs | 2 | ||||
| -rw-r--r-- | perl/Rspamd/Task.xs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/perl/Rspamd/Message.xs b/perl/Rspamd/Message.xs index e8f0571bc..c9a21886e 100644 --- a/perl/Rspamd/Message.xs +++ b/perl/Rspamd/Message.xs @@ -65,7 +65,7 @@ rspamd_message_get_recipients(message, type) CODE: retav = newAV(); #ifndef GMIME24 - rcpt = g_mime_message_get_recipients (message, type); + rcpt = (InternetAddressList *)g_mime_message_get_recipients (message, type); while (rcpt) { SV * address = newSViv(0); sv_setref_pv(address, "Mail::Rspamd::InternetAddress", (Mail__Rspamd__InternetAddress)(rcpt->address)); diff --git a/perl/Rspamd/Object.xs b/perl/Rspamd/Object.xs index cf5fffb11..2f56fb995 100644 --- a/perl/Rspamd/Object.xs +++ b/perl/Rspamd/Object.xs @@ -15,7 +15,7 @@ rspamd_object_get_content_type (mime_object) char * textdata; GMimeContentType *ct; CODE: - ct = g_mime_object_get_content_type (mime_object); + ct = (GMimeContentType *)g_mime_object_get_content_type (mime_object); textdata = g_mime_content_type_to_string (ct); RETVAL = g_mime_content_type_new_from_string (textdata); plist = g_list_prepend (plist, RETVAL); diff --git a/perl/Rspamd/Task.xs b/perl/Rspamd/Task.xs index dec521660..16719ef7b 100644 --- a/perl/Rspamd/Task.xs +++ b/perl/Rspamd/Task.xs @@ -55,7 +55,7 @@ rspamd_task_insert_result (task, metric, symbol, flag) const char *symbol double flag CODE: - insert_result (task, metric, symbol, flag); + insert_result (task, metric, symbol, flag, NULL); Mail::Rspamd::Conf rspamd_task_get_conf (task) |