comparison: plugins/perl/perl-common.c
plugins/perl/perl-common.c
- changeset 7239
- 4354e9b4ffde
- parent 6921
- 3d49b89fc920
- child 7240
- 40e3e9919771
equal
deleted
inserted
replaced
| 7238:6b34b0b07bc1 | 7239:4354e9b4ffde |
|---|---|
| 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 |
