Changeset 0c4ef53
- Timestamp:
- Sep 28, 2009, 1:14:23 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- e60f98c
- Parents:
- eddee7e
- git-author:
- Anders Kaseorg <andersk@mit.edu> (09/27/09 19:31:17)
- git-committer:
- Anders Kaseorg <andersk@mit.edu> (09/28/09 13:14:23)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
r4df918b r0c4ef53 174 174 owl_function_start_question(line); 175 175 176 SvREFCNT_inc(callback); 177 owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback); 176 owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback)); 178 177 owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback); 179 178 } … … 190 189 owl_function_start_password(line); 191 190 192 SvREFCNT_inc(callback); 193 owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback); 191 owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback)); 194 192 owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback); 195 193 } … … 216 214 owl_global_set_typwin_active(&g); 217 215 218 SvREFCNT_inc(callback); 219 owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback); 216 owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback)); 220 217 owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback); 221 218 } … … 331 328 SV * cb 332 329 CODE: 333 SvREFCNT_inc(cb); 334 owl_select_add_perl_dispatch(fd, cb); 330 owl_select_add_perl_dispatch(fd, SvREFCNT_inc(cb)); 335 331 336 332 void … … 437 433 croak("Command function must be a coderef!"); 438 434 } 439 SvREFCNT_inc(func);440 435 cmd.name = name; 441 cmd.cmd_perl = func;436 cmd.cmd_perl = SvREFCNT_inc(func); 442 437 cmd.summary = summary; 443 438 cmd.usage = usage;
Note: See TracChangeset
for help on using the changeset viewer.