Mercurial > pidgin.yaz
comparison plugins/perl/perl-common.c @ 7240:d3a7ff6a91bb
[gaim-migrate @ 7815]
Let's try this instead.
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Sun, 12 Oct 2003 05:59:05 +0000 |
| parents | 3875b924d622 |
| children | 414c701ef1ff |
comparison
equal
deleted
inserted
replaced
| 7239:3875b924d622 | 7240:d3a7ff6a91bb |
|---|---|
| 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 |