diff -r 3498d9a53eba -r 53fc37becbb7 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Sat Jul 12 14:04:05 2003 +0000
+++ b/plugins/perl/perl.c	Sat Jul 12 17:38:06 2003 +0000
@@ -1045,6 +1045,7 @@
 		break;
 	case event_new_conversation:
 	case event_del_conversation:
+	case event_conversation_switch:
 		buf[0] = arg1;
 		break;
 	case event_im_displayed_sent: