X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=ba43fa58a8b33f22e1e1c356a8cb42ccced5f65a;hb=a49b940e58f148bf111c647d9b4822025636ff80;hp=c563b40f6330785c48f42d1efa30749b8d4345a1;hpb=dc331e08118a1c299a41069f6f51183176b27621;p=pspp

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index c563b40f63..ba43fa58a8 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -141,7 +141,7 @@ scalar_to_value (union value *val, SV *scalar, const struct variable *var)
 	const char *p = SvPV (scalar, len);
 	int width = var_get_width (var);
 	value_set_missing (val, width);
-	memcpy (value_str_rw (val, width), p, len);
+	memcpy (val->s, p, len);
     }
 }
 
@@ -159,7 +159,7 @@ value_to_scalar (const union value *val, const struct variable *var)
   else
     {
       int width = var_get_width (var);
-      return newSVpvn (value_str (val, width), width);
+      return newSVpvn (val->s, width);
     }
 }