comparison: libpurple/plugins/perl/perl-common.c
libpurple/plugins/perl/perl-common.c
- changeset 36002
- 31a8779e91d4
- parent 35965
- 65d585472765
- parent 35998
- aeaebd2ba4af
equal
deleted
inserted
replaced
| 35989:2b5a26ddbb69 | 36002:31a8779e91d4 |
|---|---|
| 194 | 194 |
| 195 for (i = 0; i < argc; i++) { | 195 for (i = 0; i < argc; i++) { |
| 196 if (args[i]) { | 196 if (args[i]) { |
| 197 sv_args[i] = sv_2mortal(newSVpv(args[i], 0)); | 197 sv_args[i] = sv_2mortal(newSVpv(args[i], 0)); |
| 198 XPUSHs(sv_args[i]); | 198 XPUSHs(sv_args[i]); |
| 199 } | 199 } else |
| 200 sv_args[i] = NULL; | |
| 200 } | 201 } |
| 201 | 202 |
| 202 PUTBACK; | 203 PUTBACK; |
| 203 PERL_SET_CONTEXT(my_perl); | 204 PERL_SET_CONTEXT(my_perl); |
| 204 count = call_pv(function, G_EVAL | G_SCALAR); | 205 count = call_pv(function, G_EVAL | G_SCALAR); |
