X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp-builds.git;a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=b3ac4cdc31e84670194ede7d254315ab48deea23;hp=94ca9b01834b9fd968319a75e736c4ecd1ef71be;hb=a5097a183f00ab2d2dc538ba7094a4696e2fea04;hpb=4a8a4cd81b9d7d9e6b757be4d0a8a62b48325051

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 94ca9b01..b3ac4cdc 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -614,6 +614,7 @@ CODE:
       {
 	struct substring ss = ss_cstr (SvPV_nolen (sv));
 	if ( ! data_in (ss, LEGACY_NATIVE, ifmt->type, 0, 0, 0,
+			sfi->dict,
 			case_data_rw (c, v),
 			var_get_width (v)) )
 	  {