X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=a95ccf63aef6336c070af3e09fe587076a15eb2d;hb=150d9bdc4fc9f3edf7fef6ab5b4e8c321ef1618a;hp=400aeda7b12ce45ada26c7dc138d8b5bf0224f4a;hpb=806a46b1d1eb122908495a965756a5d94ca9dd41;p=pspp diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs index 400aeda7b1..a95ccf63ae 100644 --- a/perl-module/PSPP.xs +++ b/perl-module/PSPP.xs @@ -34,6 +34,7 @@ #include "minmax.h" #include #include +#include #include #include #include @@ -591,7 +592,7 @@ CODE: struct file_handle *fh = fh_create_file (NULL, name, fh_default_properties () ); struct sysfile_info *sfi = xmalloc (sizeof (*sfi)); - dict_set_encoding (dict, "UTF-8"); + dict_set_encoding (dict, UTF8); sfi->writer = sfm_open_writer (fh, dict, opts); sfi->dict = dict; sfi->opened = true; @@ -659,7 +660,7 @@ CODE: char *error; bool ok; - error = data_in (ss, LEGACY_NATIVE, ifmt->type, + error = data_in (ss, SvUTF8(sv) ? UTF8: "iso-8859-1", ifmt->type, case_data_rw (c, v), var_get_width (v), dict_get_encoding (sfi->dict)); ok = error == NULL;