X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl-module%2FPSPP.xs;h=a66f4427299361e8aad47cc0e19df2342ccb9fdf;hb=f2aff95d14f40f128475cb39e47b7b3333ecc436;hp=834ec401f483900d5cd1cb5bfb5d3e08045e7e4a;hpb=21559edd9991628d96df331e5b391ca6bade3497;p=pspp

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index 834ec401f4..a66f442729 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -568,13 +568,12 @@ MODULE = PSPP		PACKAGE = PSPP::Sysfile
 
 
 struct sysfile_info *
-pxs_create_sysfile (name, dict_ref, opts_hr)
+pxs_create_sysfile (name, dict, opts_hr)
  char *name
- SV *dict_ref
+ struct dictionary *dict;
  SV *opts_hr
 INIT:
- SV *dict_sv = SvRV (dict_ref);
- struct dictionary *dict = (void *) SvIV (dict_sv);
+ SV *dict_sv = ST(1);
  struct sfm_write_options opts;
  if (!SvROK (opts_hr))
   {