# HG changeset patch
# User Gabriel Schulhof <nix@go-nix.ca>
# Date 1187528544 0
# Node ID ff8aaa52b44d8517f8115a47a668d8ca8078fea8
# Parent  d1af9eee7fa4abc768ddcdbe5edc955cb65a99c6
Trying some more .xs-fu

diff -r d1af9eee7fa4 -r ff8aaa52b44d pidgin/plugins/perl/common/GtkLog.xs
--- a/pidgin/plugins/perl/common/GtkLog.xs	Sun Aug 19 12:57:56 2007 +0000
+++ b/pidgin/plugins/perl/common/GtkLog.xs	Sun Aug 19 13:02:24 2007 +0000
@@ -11,13 +11,19 @@
 	Purple::LogType type
 	const char * screenname
 	Purple::Account account
+CODE:
+	pidgin_log_show(NULL, type, screename, account);
 
 void
 pidgin_log_show_contact(contact)
 	Purple::BuddyList::Contact contact
+CODE:
+	pidgin_log_show_contact(NULL, contact);
 
 MODULE = Pidgin::Log  PACKAGE = Pidgin::SysLog  PREFIX = pidgin_syslog_
 PROTOTYPES: ENABLE
 
 void
 pidgin_syslog_show()
+CODE:
+	pidgin_syslog_show(NULL)