comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 6525
- 2e52a3662799
- parent 6524
- aa6fda36af91
- child 6526
- c6c3f10519ab
equal
deleted
inserted
replaced
| 6524:aa6fda36af91 | 6525:2e52a3662799 |
|---|---|
| 313 | 313 |
| 314 dSP; | 314 dSP; |
| 315 ENTER; | 315 ENTER; |
| 316 SAVETMPS; | 316 SAVETMPS; |
| 317 PUSHMARK(SP); | 317 PUSHMARK(SP); |
| 318 XPUSHs(gaim_perl_ref_object(plugin)); | |
| 319 PUTBACK; | |
| 318 | 320 |
| 319 perl_call_pv(gps->load_sub, G_NOARGS | G_EVAL | G_SCALAR); | 321 perl_call_pv(gps->load_sub, G_NOARGS | G_EVAL | G_SCALAR); |
| 320 SPAGAIN; | 322 SPAGAIN; |
| 321 | 323 |
| 322 if (SvTRUE(ERRSV)) { | 324 if (SvTRUE(ERRSV)) { |
| 346 | 348 |
| 347 dSP; | 349 dSP; |
| 348 ENTER; | 350 ENTER; |
| 349 SAVETMPS; | 351 SAVETMPS; |
| 350 PUSHMARK(SP); | 352 PUSHMARK(SP); |
| 353 XPUSHs(gaim_perl_ref_object(plugin)); | |
| 354 PUTBACK; | |
| 351 | 355 |
| 352 perl_call_pv(gps->unload_sub, G_NOARGS | G_EVAL | G_SCALAR); | 356 perl_call_pv(gps->unload_sub, G_NOARGS | G_EVAL | G_SCALAR); |
| 353 SPAGAIN; | 357 SPAGAIN; |
| 354 | 358 |
| 355 if (SvTRUE(ERRSV)) { | 359 if (SvTRUE(ERRSV)) { |
