Changeset 9c7a701 for perlconfig.c
- Timestamp:
- Feb 15, 2008, 12:56:49 AM (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:
- 18a54ee
- Parents:
- a6a4155
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
raf1920fd r9c7a701 485 485 } 486 486 487 void owl_perlconfig_dispatch_free(owl_dispatch *d) 488 { 489 SvREFCNT_dec(d->pfunc); 490 } 491 487 492 void owl_perlconfig_edit_callback(owl_editwin *e) 488 493 { … … 528 533 return; 529 534 } 535 536 void owl_perlconfig_do_dispatch(owl_dispatch *d) 537 { 538 SV *cb = d->pfunc; 539 unsigned int n_a; 540 dSP; 541 if(cb == NULL) { 542 owl_function_error("Perl callback is NULL!"); 543 } 544 545 ENTER; 546 SAVETMPS; 547 548 PUSHMARK(SP); 549 PUTBACK; 550 551 call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL); 552 553 if(SvTRUE(ERRSV)) { 554 owl_function_error("%s", SvPV(ERRSV, n_a)); 555 } 556 557 FREETMPS; 558 LEAVE; 559 }
Note: See TracChangeset
for help on using the changeset viewer.