comparison: plugins/perl/perl-handlers.c
plugins/perl/perl-handlers.c
- changeset 7386
- 9cccb3792018
- parent 6925
- ace22b159921
- child 11123
- 098f5c57f2bb
equal
deleted
inserted
replaced
| 7385:000d887035a2 | 7386:9cccb3792018 |
|---|---|
| 88 copy_args = g_new(void **, value_count); | 88 copy_args = g_new(void **, value_count); |
| 89 | 89 |
| 90 for (i = 0; i < value_count; i++) | 90 for (i = 0; i < value_count; i++) |
| 91 { | 91 { |
| 92 sv_args[i] = sv_2mortal(gaim_perl_sv_from_vargs(values[i], | 92 sv_args[i] = sv_2mortal(gaim_perl_sv_from_vargs(values[i], |
| 93 &args, ©_args[i])); | 93 (va_list*)&args, ©_args[i])); |
| 94 | 94 |
| 95 XPUSHs(sv_args[i]); | 95 XPUSHs(sv_args[i]); |
| 96 } | 96 } |
| 97 | 97 |
| 98 XPUSHs((SV *)handler->data); | 98 XPUSHs((SV *)handler->data); |
