# HG changeset patch
# User Nathan Walp <nwalp@pidgin.im>
# Date 1054916452 0
# Node ID 171fdd5493b96653f6cf61e491564998254b7c03
# Parent  e8f6209c4f59605a27bd5ba3655a3f648f3e0a1f
[gaim-migrate @ 6200]
compile fix.

committer: Tailor Script <tailor@pidgin.im>

diff -r e8f6209c4f59 -r 171fdd5493b9 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Fri Jun 06 15:47:32 2003 +0000
+++ b/plugins/perl/perl.c	Fri Jun 06 16:20:52 2003 +0000
@@ -747,7 +747,7 @@
 		g_snprintf(a.message, sizeof(a.message), "%s", message);
 		do_away_message(NULL, &a);
 	} else if (!strncasecmp(command, "back", 4)) {
-		do_im_back();
+		do_im_back(NULL, NULL);
 	} else if (!strncasecmp(command, "idle", 4)) {
 		GList *c = gaim_connections_get_all();
 		GaimConnection *gc;