comparison: src/perl.c
src/perl.c
- changeset 3510
- eb451ec1bf1c
- parent 3456
- 915542b9877e
- child 3517
- ef03be2348a5
equal
deleted
inserted
replaced
| 3509:9d643e691948 | 3510:eb451ec1bf1c |
|---|---|
| 755 break; | 755 break; |
| 756 case event_quit: | 756 case event_quit: |
| 757 buf = g_malloc0(1); | 757 buf = g_malloc0(1); |
| 758 break; | 758 break; |
| 759 case event_new_conversation: | 759 case event_new_conversation: |
| 760 case event_del_conversation: | |
| 760 buf = g_strdup_printf("'%s'", escape_quotes(arg1)); | 761 buf = g_strdup_printf("'%s'", escape_quotes(arg1)); |
| 761 break; | 762 break; |
| 762 case event_im_displayed_sent: | 763 case event_im_displayed_sent: |
| 763 { | 764 { |
| 764 char *tmp2, *tmp3; | 765 char *tmp2, *tmp3; |
| 778 g_free(tmp2); | 779 g_free(tmp2); |
| 779 g_free(tmp3); | 780 g_free(tmp3); |
| 780 } | 781 } |
| 781 break; | 782 break; |
| 782 default: | 783 default: |
| 784 debug_printf("someone forgot to handle %s in the perl binding\n", event_name(event)); | |
| 783 return 0; | 785 return 0; |
| 784 } | 786 } |
| 785 | 787 |
| 786 for (handler = perl_event_handlers; handler != NULL; handler = handler->next) { | 788 for (handler = perl_event_handlers; handler != NULL; handler = handler->next) { |
| 787 data = handler->data; | 789 data = handler->data; |
