comparison: plugins/perl/perl-common.c
plugins/perl/perl-common.c
- changeset 7240
- 40e3e9919771
- parent 7239
- 4354e9b4ffde
- child 7386
- 9cccb3792018
equal
deleted
inserted
replaced
| 7239:4354e9b4ffde | 7240:40e3e9919771 |
|---|---|
| 543 | 543 |
| 544 case GAIM_TYPE_STRING: | 544 case GAIM_TYPE_STRING: |
| 545 if ((*copy_arg = (void *)va_arg(*args, char *)) == NULL) | 545 if ((*copy_arg = (void *)va_arg(*args, char *)) == NULL) |
| 546 return &PL_sv_undef; | 546 return &PL_sv_undef; |
| 547 | 547 |
| 548 return newSVGChar(*(char *)*copy_arg); | 548 return newSVGChar((char *)*copy_arg); |
| 549 | 549 |
| 550 case GAIM_TYPE_POINTER: | 550 case GAIM_TYPE_POINTER: |
| 551 if ((*copy_arg = (void *)va_arg(*args, void *)) == NULL) | 551 if ((*copy_arg = (void *)va_arg(*args, void *)) == NULL) |
| 552 return &PL_sv_undef; | 552 return &PL_sv_undef; |
| 553 | 553 |
