Changeset 1b1cd2c for perlglue.xs

Timestamp:

Mar 23, 2010, 5:23:43 PM (14 years ago)

Author:

Nelson Elhage <nelhage@ksplice.com>

Branches:

master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9

Children:

8dfb59c

Parents:

6b78afb

git-author:

Nelson Elhage <nelhage@mit.edu> (03/13/10 21:18:03)

git-committer:

Nelson Elhage <nelhage@ksplice.com> (03/23/10 17:23:43)

Message:

Editwin: Add a callback to destroy cbdata

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ -179 +179 @@
                 owl_function_start_question(line);
 
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g), newSVsv(callback));
+                owl_editwin_set_cbdata(owl_global_get_typwin(&g),
+                                       newSVsv(callback),
+                                       owl_perlconfig_dec_refcnt);
                 owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
         }
@@ -195 +197 @@
                 owl_function_start_password(line);
 
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g), newSVsv(callback));
+                owl_editwin_set_cbdata(owl_global_get_typwin(&g),
+                                       newSVsv(callback),
+                                       owl_perlconfig_dec_refcnt);
                 owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
         }
@@ -208 +212 @@
                         croak("Callback must be a subref");
 
-                owl_function_start_edit_win(line, owl_perlconfig_edit_callback, newSVsv(callback));
+                owl_function_start_edit_win(line,
+                                            owl_perlconfig_edit_callback,
+                                            newSVsv(callback),
+                                            owl_perlconfig_dec_refcnt);
         }