projects
/
pspp-builds.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c0ba863
)
perl-module: Use new var_get_encoding() function.
author
Ben Pfaff
<blp@cs.stanford.edu>
Wed, 14 Apr 2010 04:18:37 +0000
(21:18 -0700)
committer
Ben Pfaff
<blp@cs.stanford.edu>
Wed, 14 Apr 2010 04:42:32 +0000
(21:42 -0700)
perl-module/PSPP.xs
patch
|
blob
|
history
diff --git
a/perl-module/PSPP.xs
b/perl-module/PSPP.xs
index fef855106de4347ba324e59434e2e4dd94941b54..bc7961e6e7fcf717457e4afca000894bd1486625 100644
(file)
--- 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);