X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp-builds.git;a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=e80b3cf22baf01ecd6c63cab928f7230a317a611;hp=8179d29a3721aa27b0b0e7417085a515eb65c591;hb=f15c854d8500105766b2f5666bb62b983ff24f88;hpb=9254d30d06a0565c89daccedd93a94c4c6086004

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 8179d29a..e80b3cf2 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -177,9 +177,7 @@ CODE:
  union value uv;
  char *s;
  make_value_from_scalar (&uv, val, var);
- s = malloc (fmt->w);
- memset (s, '\0', fmt->w);
- data_out (&uv, fmt, s);
+ s = data_out (&uv, fmt);
  value_destroy (&uv, var_get_width (var));
  ret = newSVpv (s, fmt->w);
  free (s);