Changeset 11d55e5 for perlglue.xs
- Timestamp:
- Sep 21, 2011, 4:20:30 PM (13 years ago)
- Children:
- 8ad3964
- Parents:
- bbd0cf1
- git-author:
- Jason Gross <jgross@mit.edu> (06/25/11 21:19:32)
- git-committer:
- Jason Gross <jgross@mit.edu> (09/21/11 16:20:30)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
rf271129 r11d55e5 209 209 const char *line 210 210 SV *callback 211 PREINIT: 212 owl_editwin *e; 211 213 CODE: 212 214 { … … 214 216 croak("Callback must be a subref"); 215 217 216 owl_function_start_edit_win(line, 217 owl_perlconfig_edit_callback, 218 newSVsv(callback), 219 owl_perlconfig_dec_refcnt); 218 e = owl_function_start_edit_win(line); 219 owl_editwin_set_cbdata(e, 220 newSVsv(callback), 221 owl_perlconfig_dec_refcnt); 222 owl_editwin_set_callback(e, &owl_perlconfig_edit_callback); 220 223 } 221 224
Note: See TracChangeset
for help on using the changeset viewer.