diff -r b60de9a13f23 -r 346a85c9c9dd 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)