From 13c66bad6d4df1f3f5223d799d4bcd6ed8b0446a Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Tue, 13 Apr 2010 21:18:37 -0700 Subject: [PATCH] perl-module: Use new var_get_encoding() function. --- perl-module/PSPP.xs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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); -- 2.30.2