Changeset fde6d80 for perlglue.xs

Timestamp:

Jan 23, 2010, 10:49:54 AM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

c3a47c9

Parents:

2fec14b

Message:

owl_style_create_perl: Change refcounting convention.

Make owl_style_create_perl assume ownership of an existing ref, rather
than SvREFCNT_inc'ing its argument, for consistency with both perl
APIs and other code paths that retain SVs.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -279 +279 @@
         {
                 s = owl_malloc(sizeof(owl_style));
-                owl_style_create_perl(s, name, sv_2mortal(newSVsv(object)));
+                owl_style_create_perl(s, name, newSVsv(object));
                 owl_global_add_style(&g, s);
         }