data-in: Make data_in() parameters more uniform.

[pspp] / perl-module / PSPP.xs

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 0e918a9fc25a8b35ae03a3b985331aae61616bfe..bf90d986f327b811fb5f67822d7cf5c332b0c0ca 100644 (file)
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -655,9 +655,8 @@ CODE:
       {
        struct substring ss = ss_cstr (SvPV_nolen (sv));
        if ( ! data_in (ss, LEGACY_NATIVE, ifmt->type, 0, 0,
-                       sfi->dict,
-                       case_data_rw (c, v),
-                       var_get_width (v)) )
+                       case_data_rw (c, v), var_get_width (v),
+                       dict_get_encoding (sfi->dict)))
          {
            RETVAL = 0;
            goto finish;