Changeset a01ed7c for perlconfig.c

Timestamp:

Oct 27, 2009, 2:15:08 PM (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:

7ca5d3e

Parents:

e7f5970 (diff), f1a2736 (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.

Message:

Merge branch 'io_dispatch_rewrite'

File:

• perlconfig.c (modified) (3 diffs)

perlconfig.c

@@ -542 +542 @@
 }
 
-void owl_perlconfig_dispatch_free(owl_dispatch *d)
+void owl_perlconfig_io_dispatch_destroy(const owl_io_dispatch *d)
 {
   SvREFCNT_dec(d->data);
-  owl_free(d);
 }
 
@@ -593 +592 @@
 }
 
-void owl_perlconfig_dispatch(owl_dispatch *d)
-{
-  SV *cb = d->data;
+void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
+{
+  SV *cb = data;
   dSP;
   if(cb == NULL) {
@@ -607 +606 @@
   PUSHMARK(SP);
   PUTBACK;
-  
+
   call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);