# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1053136089 0
# Node ID 2af3224b329a93a80573177cb306921261c4a15d
# Parent  a93a1a443691c2e0dcf951623a0657f2613bdc8c
[gaim-migrate @ 5784]
I hope this is right :) It'll shut up the errors in the debug window
anyway.

committer: Tailor Script <tailor@pidgin.im>

diff -r a93a1a443691 -r 2af3224b329a plugins/perl/perl.c
--- a/plugins/perl/perl.c	Sat May 17 01:44:42 2003 +0000
+++ b/plugins/perl/perl.c	Sat May 17 01:48:09 2003 +0000
@@ -932,6 +932,7 @@
 
 	/* Make a pretty array of char*'s with which to call perl functions */
 	switch (event) {
+	case event_connecting:
 	case event_signon:
 	case event_signoff:
 		g_snprintf(tmpbuf1, 16, "%lu", (unsigned long)arg1);