Changeset d1b1cf6 for perlglue.xs

Timestamp:

Aug 28, 2009, 12:09:07 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

ec21c62

Parents:

0571c30

git-author:

Nelson Elhage <nelhage@mit.edu> (08/26/09 23:49:26)

git-committer:

Nelson Elhage <nelhage@mit.edu> (08/28/09 00:09:07)

Message:

Set the UTF-8 flag on on strings we pass to Perl.

Add an owl_new_sv helper function that validates a string as UTF-8 and
turns it into an SV with the UTF-8 flag set, and use it everywhere in
preference to newSVpv.

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ -354 +354 @@
                 for(i=0;i<owl_list_get_size(fl);i++) {
                         f = owl_list_get_element(fl, i);
-                        av_push(filters, newSVpv(owl_filter_get_name(f), 0));
+                        av_push(filters, owl_new_sv(owl_filter_get_name(f)));
                 }
                 RETVAL = filters;
@@ -376 +376 @@
                 for(i=0;i<owl_list_get_size(&l);i++) {
                         name = owl_list_get_element(&l, i);
-                        av_push(styles, newSVpv(name, 0));
+                        av_push(styles, owl_new_sv(name));
                 }
                 RETVAL = styles;
@@ -401 +401 @@
                 for(i=0;i<owl_list_get_size(&l);i++) {
                         name = owl_list_get_element(&l, i);
-                        av_push(vars, newSVpv(name, 0));
+                        av_push(vars, owl_new_sv(name));
                 }
                 RETVAL = vars;