comparison: plugins/perl/perl-handlers.c
plugins/perl/perl-handlers.c
- changeset 12871
- 3584d93ae63c
- parent 12804
- fcab3f810f83
- child 12872
- b3d38f1b9bd7
equal
deleted
inserted
replaced
| 12870:20dd598144a9 | 12871:3584d93ae63c |
|---|---|
| 129 gaim_perl_get_plugin_frame(GaimPlugin *plugin) | 129 gaim_perl_get_plugin_frame(GaimPlugin *plugin) |
| 130 { | 130 { |
| 131 /* Sets up the Perl Stack for our call back into the script to run the | 131 /* Sets up the Perl Stack for our call back into the script to run the |
| 132 * plugin_pref... sub */ | 132 * plugin_pref... sub */ |
| 133 GaimPluginPrefFrame *ret_frame; | 133 GaimPluginPrefFrame *ret_frame; |
| 134 int count; | |
| 134 dSP; | 135 dSP; |
| 135 int count; | |
| 136 | 136 |
| 137 ENTER; | 137 ENTER; |
| 138 SAVETMPS; | 138 SAVETMPS; |
| 139 /* Some perl magic to run perl_plugin_pref_frame_SV perl sub and | 139 /* Some perl magic to run perl_plugin_pref_frame_SV perl sub and |
| 140 * return the frame */ | 140 * return the frame */ |
| 152 | 152 |
| 153 /* Tidy up the Perl stack */ | 153 /* Tidy up the Perl stack */ |
| 154 PUTBACK; | 154 PUTBACK; |
| 155 FREETMPS; | 155 FREETMPS; |
| 156 LEAVE; | 156 LEAVE; |
| 157 | 157 |
| 158 return ret_frame; | 158 return ret_frame; |
| 159 } | 159 } |
| 160 | 160 |
| 161 static void | 161 static void |
| 162 destroy_timeout_handler(GaimPerlTimeoutHandler *handler) | 162 destroy_timeout_handler(GaimPerlTimeoutHandler *handler) |
