diff -r 80ddafd2c371 -r 9548d4fb8c8e pidgin/plugins/perl/common/GtkLog.xs
--- a/pidgin/plugins/perl/common/GtkLog.xs	Sat Sep 22 20:41:58 2007 +0000
+++ b/pidgin/plugins/perl/common/GtkLog.xs	Sat Sep 22 20:55:11 2007 +0000
@@ -11,19 +11,29 @@
 	Purple::LogType type
 	const char * screenname
 	Purple::Account account
-CODE:
-	pidgin_log_show(NULL, type, screenname, account);
+
+void
+pidgin_log_show_with_parent(parent, type, screenname, account)
+	void * parent
+	Purple::LogType type
+	const char * screenname
+	Purple::Account account
 
 void
 pidgin_log_show_contact(contact)
 	Purple::BuddyList::Contact contact
-CODE:
-	pidgin_log_show_contact(NULL, contact);
+
+void
+pidgin_log_show_contact_with_parent(parent, contact)
+	void * parent
+	Purple::BuddyList::Contact contact
 
 MODULE = Pidgin::Log  PACKAGE = Pidgin::SysLog  PREFIX = pidgin_syslog_
 PROTOTYPES: ENABLE
 
 void
 pidgin_syslog_show()
-CODE:
-	pidgin_syslog_show(NULL);
+
+void
+pidgin_syslog_show_with_parent(parent)
+	void * parent