Changeset 61abb18 for perlglue.xs

Timestamp:

Aug 10, 2008, 10:53:16 AM (17 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

barnowl_perlaim

Parents:

3dcccba

Message:

Now it compiles. Highly likely to leak or crash, although it seems to work for me...

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ -166 +166 @@
 
                 SvREFCNT_inc(callback);
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
-                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback, callback);
         }
 
@@ -182 +181 @@
 
                 SvREFCNT_inc(callback);
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
-                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback, callback);
         }
 
@@ -208 +206 @@
 
                 SvREFCNT_inc(callback);
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
-                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback, callback);
         }