Changeset d1b1cf6 for perlglue.xs


Ignore:
Timestamp:
Aug 28, 2009, 12:09:07 AM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r952f137 rd1b1cf6  
    354354                for(i=0;i<owl_list_get_size(fl);i++) {
    355355                        f = owl_list_get_element(fl, i);
    356                         av_push(filters, newSVpv(owl_filter_get_name(f), 0));
     356                        av_push(filters, owl_new_sv(owl_filter_get_name(f)));
    357357                }
    358358                RETVAL = filters;
     
    376376                for(i=0;i<owl_list_get_size(&l);i++) {
    377377                        name = owl_list_get_element(&l, i);
    378                         av_push(styles, newSVpv(name, 0));
     378                        av_push(styles, owl_new_sv(name));
    379379                }
    380380                RETVAL = styles;
     
    401401                for(i=0;i<owl_list_get_size(&l);i++) {
    402402                        name = owl_list_get_element(&l, i);
    403                         av_push(vars, newSVpv(name, 0));
     403                        av_push(vars, owl_new_sv(name));
    404404                }
    405405                RETVAL = vars;
Note: See TracChangeset for help on using the changeset viewer.