Changeset ffc4df6 for perlconfig.c


Ignore:
Timestamp:
Oct 27, 2009, 12:41:17 AM (12 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
18fdd5f9
Parents:
df0138f
git-author:
Alejandro R. Sedeño <asedeno@mit.edu> (10/24/09 14:56:01)
git-committer:
Alejandro R. Sedeño <asedeno@mit.edu> (10/27/09 00:41:17)
Message:
Switch perl API to new I/O Dispatch API.

Signed-off-by: Alejandro R. Sedeño <asedeno@mit.edu>
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rdf0138f rffc4df6  
    504504}
    505505
    506 void owl_perlconfig_dispatch_free(owl_dispatch *d)
    507 {
    508   SvREFCNT_dec(d->data);
    509   owl_free(d);
    510 }
    511 
    512506void owl_perlconfig_io_dispatch_destroy(const owl_io_dispatch *d)
    513507{
     
    560554}
    561555
    562 void owl_perlconfig_dispatch(owl_dispatch *d)
    563 {
    564   SV *cb = d->data;
    565   dSP;
    566   if(cb == NULL) {
    567     owl_function_error("Perl callback is NULL!");
    568     return;
    569   }
    570 
    571   ENTER;
    572   SAVETMPS;
    573 
    574   PUSHMARK(SP);
    575   PUTBACK;
    576  
    577   call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
    578 
    579   if(SvTRUE(ERRSV)) {
    580     owl_function_error("%s", SvPV_nolen(ERRSV));
    581   }
    582 
    583   FREETMPS;
    584   LEAVE;
    585 }
    586 
    587556void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
    588557{
Note: See TracChangeset for help on using the changeset viewer.