comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 9578
- d02c3d247fb7
- parent 8993
- 41f67bceab41
- child 9943
- b54a762f60fa
equal
deleted
inserted
replaced
| 9577:eacf12cbb519 | 9578:d02c3d247fb7 |
|---|---|
| 416 static gboolean | 416 static gboolean |
| 417 unload_perl_plugin(GaimPlugin *plugin) | 417 unload_perl_plugin(GaimPlugin *plugin) |
| 418 { | 418 { |
| 419 GaimPerlScript *gps = (GaimPerlScript *)plugin->info->extra_info; | 419 GaimPerlScript *gps = (GaimPerlScript *)plugin->info->extra_info; |
| 420 | 420 |
| 421 if (gps == NULL || gps->unload_sub == NULL) | 421 if (gps == NULL) |
| 422 return FALSE; | 422 return FALSE; |
| 423 | 423 |
| 424 gaim_debug(GAIM_DEBUG_INFO, "perl", "Unloading perl script\n"); | 424 gaim_debug(GAIM_DEBUG_INFO, "perl", "Unloading perl script\n"); |
| 425 | 425 |
| 426 if (gps->unload_sub != NULL) | |
| 426 { | 427 { |
| 427 dSP; | 428 dSP; |
| 428 ENTER; | 429 ENTER; |
| 429 SAVETMPS; | 430 SAVETMPS; |
| 430 PUSHMARK(sp); | 431 PUSHMARK(sp); |
