comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 6527
- d1236a523428
- parent 6526
- c6c3f10519ab
- child 6531
- 3fca41d7b411
equal
deleted
inserted
replaced
| 6526:c6c3f10519ab | 6527:d1236a523428 |
|---|---|
| 313 execute_perl("load_n_eval", 1, atmp); | 313 execute_perl("load_n_eval", 1, atmp); |
| 314 | 314 |
| 315 dSP; | 315 dSP; |
| 316 ENTER; | 316 ENTER; |
| 317 SAVETMPS; | 317 SAVETMPS; |
| 318 PUSHMARK(SP); | 318 PUSHMARK(sp); |
| 319 XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin"))); | 319 XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin"))); |
| 320 PUTBACK; | 320 PUTBACK; |
| 321 | 321 |
| 322 perl_call_pv(gps->load_sub, G_NOARGS | G_EVAL | G_SCALAR); | 322 perl_call_pv(gps->load_sub, G_EVAL | G_SCALAR); |
| 323 SPAGAIN; | 323 SPAGAIN; |
| 324 | 324 |
| 325 if (SvTRUE(ERRSV)) { | 325 if (SvTRUE(ERRSV)) { |
| 326 int len; | 326 int len; |
| 327 | 327 |
| 348 gaim_debug(GAIM_DEBUG_INFO, "perl", "Unloading perl script\n"); | 348 gaim_debug(GAIM_DEBUG_INFO, "perl", "Unloading perl script\n"); |
| 349 | 349 |
| 350 dSP; | 350 dSP; |
| 351 ENTER; | 351 ENTER; |
| 352 SAVETMPS; | 352 SAVETMPS; |
| 353 PUSHMARK(SP); | 353 PUSHMARK(sp); |
| 354 XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin"))); | 354 XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin"))); |
| 355 PUTBACK; | 355 PUTBACK; |
| 356 | 356 |
| 357 perl_call_pv(gps->unload_sub, G_NOARGS | G_EVAL | G_SCALAR); | 357 perl_call_pv(gps->unload_sub, G_EVAL | G_SCALAR); |
| 358 SPAGAIN; | 358 SPAGAIN; |
| 359 | 359 |
| 360 if (SvTRUE(ERRSV)) { | 360 if (SvTRUE(ERRSV)) { |
| 361 int len; | 361 int len; |
| 362 | 362 |
