From: Ben Pfaff Date: Wed, 14 Apr 2010 04:18:37 +0000 (-0700) Subject: perl-module: Use new var_get_encoding() function. X-Git-Tag: v0.7.5~61 X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=13c66bad6d4df1f3f5223d799d4bcd6ed8b0446a;p=pspp-builds.git perl-module: Use new var_get_encoding() function. --- diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs index fef85510..bc7961e6 100644 --- a/perl-module/PSPP.xs +++ b/perl-module/PSPP.xs @@ -181,11 +181,10 @@ format_value (val, var) CODE: SV *ret; const struct fmt_spec *fmt = var_get_print_format (var); - const struct dictionary *dict = var_get_vardict (var)->dict; union value uv; char *s; make_value_from_scalar (&uv, val, var); - s = data_out (&uv, dict_get_encoding (dict), fmt); + s = data_out (&uv, var_get_encoding (var), fmt); value_destroy (&uv, var_get_width (var)); ret = newSVpv (s, fmt->w); free (s);