Mercurial > pidgin
comparison plugins/perl/perl.c @ 6678:eb95f31fa4eb
[gaim-migrate @ 7203]
The perl plugin should now work with perl v5.6.0. This is not tested yet,
but it compiles and should work now.
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Mon, 01 Sep 2003 22:16:10 +0000 |
| parents | 452c62a92963 |
| children | 4396d1088273 |
comparison
equal
deleted
inserted
replaced
| 6677:cce494e69d68 | 6678:eb95f31fa4eb |
|---|---|
| 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 } |