comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 5408
- 65200df172a8
- parent 5227
- 6b44f7901f94
- child 5436
- a0e0bacaa196
equal
deleted
inserted
replaced
| 5407:b8141118f4a2 | 5408:65200df172a8 |
|---|---|
| 930 tmpbuf2[0] = '\0'; | 930 tmpbuf2[0] = '\0'; |
| 931 tmpbuf3[0] = '\0'; | 931 tmpbuf3[0] = '\0'; |
| 932 | 932 |
| 933 /* Make a pretty array of char*'s with which to call perl functions */ | 933 /* Make a pretty array of char*'s with which to call perl functions */ |
| 934 switch (event) { | 934 switch (event) { |
| 935 case event_connecting: | |
| 935 case event_signon: | 936 case event_signon: |
| 936 case event_signoff: | 937 case event_signoff: |
| 937 g_snprintf(tmpbuf1, 16, "%lu", (unsigned long)arg1); | 938 g_snprintf(tmpbuf1, 16, "%lu", (unsigned long)arg1); |
| 938 buf[0] = tmpbuf1; | 939 buf[0] = tmpbuf1; |
| 939 break; | 940 break; |
