comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 6678
- c633179afd00
- parent 6636
- e906c663da5c
- child 8095
- 26d841bb3d61
equal
deleted
inserted
replaced
| 6677:effa9861ec8e | 6678:c633179afd00 |
|---|---|
| 274 else | 274 else |
| 275 { | 275 { |
| 276 GaimPluginInfo *info; | 276 GaimPluginInfo *info; |
| 277 GaimPerlScript *gps; | 277 GaimPerlScript *gps; |
| 278 char *basename; | 278 char *basename; |
| 279 int len; | 279 STRLEN len; |
| 280 | 280 |
| 281 gaim_debug(GAIM_DEBUG_INFO, "perl", "Found plugin info\n"); | 281 gaim_debug(GAIM_DEBUG_INFO, "perl", "Found plugin info\n"); |
| 282 | 282 |
| 283 info = g_new0(GaimPluginInfo, 1); | 283 info = g_new0(GaimPluginInfo, 1); |
| 284 gps = g_new0(GaimPerlScript, 1); | 284 gps = g_new0(GaimPerlScript, 1); |
| 368 | 368 |
| 369 perl_call_pv(gps->load_sub, G_EVAL | G_SCALAR); | 369 perl_call_pv(gps->load_sub, G_EVAL | G_SCALAR); |
| 370 SPAGAIN; | 370 SPAGAIN; |
| 371 | 371 |
| 372 if (SvTRUE(ERRSV)) { | 372 if (SvTRUE(ERRSV)) { |
| 373 int len; | 373 STRLEN len; |
| 374 | 374 |
| 375 gaim_debug(GAIM_DEBUG_ERROR, "perl", | 375 gaim_debug(GAIM_DEBUG_ERROR, "perl", |
| 376 "Perl function %s exited abnormally: %s\n", | 376 "Perl function %s exited abnormally: %s\n", |
| 377 gps->load_sub, SvPV(ERRSV, len)); | 377 gps->load_sub, SvPV(ERRSV, len)); |
| 378 } | 378 } |
| 427 | 427 |
| 428 perl_call_pv(gps->unload_sub, G_EVAL | G_SCALAR); | 428 perl_call_pv(gps->unload_sub, G_EVAL | G_SCALAR); |
| 429 SPAGAIN; | 429 SPAGAIN; |
| 430 | 430 |
| 431 if (SvTRUE(ERRSV)) { | 431 if (SvTRUE(ERRSV)) { |
| 432 int len; | 432 STRLEN len; |
| 433 | 433 |
| 434 gaim_debug(GAIM_DEBUG_ERROR, "perl", | 434 gaim_debug(GAIM_DEBUG_ERROR, "perl", |
| 435 "Perl function %s exited abnormally: %s\n", | 435 "Perl function %s exited abnormally: %s\n", |
| 436 gps->load_sub, SvPV(ERRSV, len)); | 436 gps->load_sub, SvPV(ERRSV, len)); |
| 437 } | 437 } |
