X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;h=25effb9216b77364c9641b0a479b397cd25dea37;hb=94ab41f950adbdbd353c376851f3198abc9736fa;hp=a95ccf63aef6336c070af3e09fe587076a15eb2d;hpb=150d9bdc4fc9f3edf7fef6ab5b4e8c321ef1618a;p=pspp-builds.git

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index a95ccf63..25effb92 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -685,7 +685,8 @@ CODE:
    union value *val = case_data_rw (c, v);
    value_set_missing (val, var_get_width (v));
  }
- RETVAL = casewriter_write (sfi->writer, c);
+ casewriter_write (sfi->writer, c);
+ RETVAL = 1;
  finish:
  free (vv);
 OUTPUT: