Changeset 5f3168a for perlconfig.c
- Timestamp:
- Feb 18, 2008, 9:07:22 PM (16 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- b70d24f
- Parents:
- 680ed23 (diff), 9d2f010 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
ree310eb r5f3168a 487 487 } 488 488 489 void owl_perlconfig_dispatch_free(owl_dispatch *d) 490 { 491 SvREFCNT_dec(d->pfunc); 492 } 493 489 494 void owl_perlconfig_edit_callback(owl_editwin *e) 490 495 { … … 533 538 return; 534 539 } 540 541 void owl_perlconfig_do_dispatch(owl_dispatch *d) 542 { 543 SV *cb = d->pfunc; 544 unsigned int n_a; 545 dSP; 546 if(cb == NULL) { 547 owl_function_error("Perl callback is NULL!"); 548 } 549 550 ENTER; 551 SAVETMPS; 552 553 PUSHMARK(SP); 554 PUTBACK; 555 556 call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL); 557 558 if(SvTRUE(ERRSV)) { 559 owl_function_error("%s", SvPV(ERRSV, n_a)); 560 } 561 562 FREETMPS; 563 LEAVE; 564 }
Note: See TracChangeset
for help on using the changeset viewer.