X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=bf90d986f327b811fb5f67822d7cf5c332b0c0ca;hb=38993354cabb6fc37bb882be92f9a49e9aeb4c88;hp=0e918a9fc25a8b35ae03a3b985331aae61616bfe;hpb=00129e248ab4ce96af72d380d8a0ccfad2f5d776;p=pspp

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 0e918a9fc2..bf90d986f3 100644
--- 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;