Changeset ffc4df6 for perlconfig.c

Timestamp:

Oct 27, 2009, 12:41:17 AM (15 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, release-1.10, 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:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -504 +504 @@
 }
 
-void owl_perlconfig_dispatch_free(owl_dispatch *d)
-{
-  SvREFCNT_dec(d->data);
-  owl_free(d);
-}
-
 void owl_perlconfig_io_dispatch_destroy(const owl_io_dispatch *d)
 {
@@ -560 +554 @@
 }
 
-void owl_perlconfig_dispatch(owl_dispatch *d)
-{
-  SV *cb = d->data;
-  dSP;
-  if(cb == NULL) {
-    owl_function_error("Perl callback is NULL!");
-    return;
-  }
-
-  ENTER;
-  SAVETMPS;
-
-  PUSHMARK(SP);
-  PUTBACK;
-  
-  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
-
-  if(SvTRUE(ERRSV)) {
-    owl_function_error("%s", SvPV_nolen(ERRSV));
-  }
-
-  FREETMPS;
-  LEAVE;
-}
-
 void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
 {