Changeset c737503 for perlglue.xs
- Timestamp:
- Sep 30, 2011, 8:06:57 AM (13 years ago)
- Branches:
- master, release-1.10, release-1.9
- Children:
- e89ec48
- Parents:
- eba02ec
- git-author:
- Jason Gross <jgross@mit.edu> (06/25/11 21:19:32)
- git-committer:
- Jason Gross <jgross@mit.edu> (09/30/11 08:06:57)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
rf271129 rc737503 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.